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Pour tous ceux qui n’aiment 
pas réfléchir en programmant 
les utilitaires tels que les 
multiples gestion de fichiers, ce 
programme est le bienvenu et, 
de plus, évite de s’occuper des 
sauvegardes et chargements 
toujours critique lorsqu’on les 
oublie. Nouveau !! On gère 
aussi des fiches minitel.…. ! 


ans l’encart réservé aux program- 
meurs il est toujours demandé de 
ne pas envoyer d’annuaire, scrabble. 
etc, la rédaction croulant sous les envois. 
Alors pourquoi un tel programme ici ? 
Je l’ai fait pour une personne n’ayant 
pas le bagout de la programmation et qui 
voulait utiliser son ordinateur sans se «cas- 
ser la tête». En présentant un autre pro- 
gramme à la rédaction, celui-ci a paru 
intéressant par sa conception, je vous le 
propose donc. 
Je suis parti, en effet, sur une utilisa- 
tion des plus simplifiée d’un tel program- 
me : 


1 - Toutes les erreurs de saisie doi- 
vent être traitées de façon à éviter le ON 
ERROR GOTO traditionnel, qui efface 
tout le travail effectué si jamais il est mis 
en œuvre. 


2-Les sauvegardes et les charge- 
ments de fichiers doivent être automati- 
ques, toujours dans le but d’éviter les er- 
reurs de gestion des fichiers. 


3 — La présentation doit être soignée 
pour une utilisation agréable. 


UTILITAIRE. 







ANNUAIRE 


Avant de passer à l’étude de la con- 
ception et au mode d'utilisation, je vais 
brièvement vous expliquer l’évolution de 
la conception. 


Ma première idée de faire un program- 
me débouchant sur une série de fichiers 
pré-installés sur disquette, représentant 
chacun une lettre de l’alphabet. En y ajou- 
tant une page mémoire pour y mettre des 
informations personnelles, cela ressem- 
blait à un agenda de poche. 

Mais l’utilisation s’avérait délicate. 
Ceux qui l’ont testé me l’on rendu avec 
l’idée qu’il faudrait faire des fichiers thé- 
matiques, que chacun pourrait ouvrir et 
fermer à volonté. J'ai donc crée un fi- 
chier d’initialisation avec compteur, créa- 
tion et effacement automatique. 


Plus tard, jy ajoutait une gestion des 
données MINITEL, progrès oblige, et une 
page d’informations générales. 

A ce moment, mon programme s’est 
planté. Les calculs de place mémoire que 
j'avais fait s’avérait faux. Lorsque je char- 
geais un fichier complet de 14 Ko, j'avais 
un superbe «MEMORY FULL». J'avais 
simplement omis de compter l’espace mé- 
moire réservé par les instructions «DIM». 
C’est pourquoi ce programme est main- 
tenant en deux parties. 


La dernière chose faite a été de faire 
une présentation du «menu général» par 
page écran grâce à l’utilisation de BANK- 
MANAGER. Tous ne possédant pas le 
lancement automatique paru dans CPC. 
J'ai modifié la version CPM et je l’ai in- 
troduite au listing, sans modifier les en- 
trées mémoire pour éviter les manipula- 
tions toujours trop nombreuses dans ces 
cas là. 


1 - La gestion des fenêtres 


A priori cela semble le plus facile. 
La gestion des fenêtres du C.P.C. est un 
peu lourde : si on utilise toutes les res- 
sources de notre ordinateur, il nous reste 
5 fenêtres graphiques ce qui est peu. J’ai 
donc fait une routine BASIC qui permet 
de gérer un nombre infini de fenêtres à 
partir d’un seul canal, ici le canal 1. Il 
est très facile pour chacun de modifier, 
suivant ses goûts, l’encadrement de cette 
fenêtre. 

Cette routine se compose de deux par- 
ties, la mise en place et l’effacement. 

A la mise en place, on crée deux fe- 
nêtres, l’une sur l’autre, la première ser- 
vant à l’encadrement, la deuxième, ré- 
duite d’une matrice de chaque côté, au 
texte. 

L’effacement du texte se fait par 
«CLS#1», l'effacement total se fait par 
appel d’une routine d’effacement, ligne 
180. 

Cette routine est un sous-programme, 
pour laquelle il faut désigner les quatre 
paramètres de dimension (gauche, droite, 
haut, bas) et les trois paramètres de cou- 
leur (fond, texte, graphique) avant de l’ap- 
peler par un gosub. 

La routine d’effacement remet sim- 
plement la couleur de fond de base à partir 
des données de dimension en cours. On 
ne retrouve donc pas les fenêtres précé- 
dentes. 


2 — La procédure d’écriture 
en double hauteur 


Elle est tirée du programme «géné- 
rateur de menus» de Gaétan Bourrée paru 
dans CPC n° 25, mais elle peut être rem- 
placée par celle de votre manuel. 


3 - Les menus 


Is utilisent l’instruction «INSTR» que 
Michel Archambault nous avait décrite 
dans l’un des ses articles. La formule d’at- 
tente à la ligne 1250 ne peut être chan- 
ger. Pas de «CALL &BB06» ou autre for- 
mule sinon plantage !! 


4 - Sauvegarde et chargement 
des fichiers 


Ces procédures sont classiques. Les 
fichiers sont indicées (nbfic, nbfich, nbfi = 
nombre de fiches) afin d’en déterminer 
leur longueur. Chaque fois que l’on veut 
créer un nouveau fichier, celui-ci est 
d’abord inscrit dans un fichier d’initiali- 
sation (INIT.ANN), puis il est ouvert sur 
la disquette avec un indice 0. Lorsqu’on 
veut le supprimer, l’opération inverse est 
faite. 

A l'écriture, l’instruction «WRITE» 
a été préférée à «PRINT» pour un gain 
de place en mémoire évident. 

Mais, à cause de cela, la procédure 
de tri, méthode de substitution, a été faite 
en plusieurs parties. La sélection se fait 
sur le premier champ enregistré, les au- 


tres étant échangés un par un lorsque le 
premier fait lui-même l’objet d’un échan- 
ge. Rassurez-vous, cette routine reste très 
rapide. Attention ! La place mémoire étant 
un peu juste, un fichier complet de 14 Ko 
ne peut être chargé, à condition d’avoir 
supprimé tous les REMSs. Mais je suis sûr 
que vous n’utiliserez jamais un fichier 
de 14 Ko. 

On peut gérer 10 fichiers de 40 fi- 
ches, chaque fichier occupant 14 Ko s’il 
est rempli complètement. 

Chaque fichier est erasé après son uti- 
lisation pour laisser la place au suivant. 


5 - Lancement automatique 
de BANKMANAGER 


Les lignes 21 à 27 utilisent la routine de 
lancement de BANKMANAGER de 
CPM. J'ai supprimé toutes les lignes de 
contrôle des erreurs pour ne garder que 
la routine de lancement qui gère auto- 
matiquement la place de l’entrée mémoire 
en fonction de l'Himem. 


B - L'utilisation 


Le programme se divise en 2 parties, 
«ANN» et «ANN1», fonctionnant par 
chaînage. 

ANN gère l’annuaire téléphonique et 
la fin de programme. ANNI gère l’ac- 
cès MINITEL, l'impression des fiches et 
l’impression des adresses sur envelop- 
pes, les informations. 


Tout est expliqué au fur et à mesure 
que le programme se déroule. Toutefois, 
il est bon de demander la page d’infor- 
mation à la première utilisation pour l’ini- 
tialisation. En effet, il faut ouvrir les pre- 
miers fichiers INIT et MINITEL. La pro- 
cédure est expliquée dans les pages in- 
formations. Toutefois, vous devez pro- 
céder ainsi : 


— Chargez "ANN" par LOAD"ANN. 
BAS" 

Faites GOTO 2400 et ne tenez pas comp- 
te des messages d’erreurs. 

— Chargez "ANNI1" par load" ANNI. 
BAS" 

Faites GOTO 3100 et après le message 
d’erreur éventuel relancez l’ensemble par 
RUN'"ANN.BAS" 


1 - L'annuaire téléphonique 


Tout se gère automatiquement, sau- 
vegarde et chargement des fichiers, inu- 
tile de vous en faire. On peut ouvrir et 
supprimer un fichier, créer, modifier, sup- 
primer une fiche, les fiches étant clas- 
sées par ordre alphabétique et indicées 
automatiquement. Il manque juste la fonc- 
tion recherche, mais, est-ce bien utile ici ? 


2 - L'accès MINITEL 


Le fonctionnement est identique à 
l’annuaire. On gère 20 fiches présentées 
à l’écran 2 par 2. 


L\e) LL 174 "4e EE Ne on ES 


> 


OUI 


Nom : 
Adresse : 


Code postal : 


Date Signature : 


Prénom : 


Ville : 


je désire m'abonner à CPC HS pour 1 an au prix de 90 F (6 numéros). Par avion, 
nous consulter. Les abonnements ne sont pas rétroactifs. 


° Bulletin valable jusqu'au 31 mars. 


Je joins à cet envoi, mon règlement de 90 F au nom de : 
EDITIONS SORACOM - La Haiïie de Pan - 35170 BRUZ. 





3 - L’impression 


On peut imprimer une fiche complète, 
suffisamment petite pour être mise dans 
un portefeuille. On peut aussi imprimer 
une-.adresse sur une enveloppe dont on a 
choisi le format (moyen, grand). 


4 — Les informations 


Elles sont utiles pour démarrer le pro- 
gramme. 


5 —- Quelques modifications 


a) - Le programme est présenté dans 
sa version avec l’utilisation de BANK- 
MANAGER pour la présentation de la 
page du «menu général». Pour ceux qui 
ne veulent pas de cette version ou qui ne 
la possèdent pas, les explications sont 
fournies tout au long du listing par des 
REM 5, afin de pouvoir apporter les mo- 
difications nécessaires. 

Pour les possesseurs de 464, il faut 
modifier les DRAWS, les PLOTSs et les 
ouvertures et fermetures de fichier. 


b) - L’effacement de l’écran avant cha- 
que menu: c’est possible, dans la yersion 
sans utilisation de BANKMAN, si vous 
le désirez, en plaçant un «CLS» ligne 
1025, et en n’oubliant pas de faire appel 
au menu par cette ligne chaque fois que 
cela est nécessaire. 


ann 


10 ’annuaire-)>ann >LA 
15 * Gianetti Marc - decembre 1989 >LF 
- tel: 99324582 
20 "Si vous n’utilisez pas BANKHAN >LB 
ne tapez pas ou modifiez en suivant 

les commentaires les lignes possed 
ant en REN le signe #4 
21 SYMBOL AFTER 256:ncy-HIHEM-15:ME >QV 
HORY acy-1'#1 
22 RESTORE 27:FOR p=acy TO acy+15:R >ND 
EAD p$:POKE p,VAL("&"+p$) :NEXT'## 
23 at-0:CALL ncy,àa'## >NZ 
24 MEMORY acyti5:acy=HIMEM-&524'## )AC 
25 MEMORY acy-1:LOAD "banksan.bin", >LW 


c) - Suppression des REMSs et des 
blancs du basic : il est conseillé de sup- 
primer tous les REMSs, pour gagner de la 
place mémoire, celle-ci étant nécessaire 
lors de l’utilisation de fichiers complets. 
Dans ce cadre, ce programme a été fait 
en supprimant complètement les blancs 
du basic. Pour l’instant tapez «POKE 
&AC00,255» puis «ENTER» avant la 
frappe du listing pour obtenir ce résul- 
tat. (Voir aussi les rubriques «TRUCS 
ET ASTUCES» de CPC). 


d) - Une dernière chose : n’oubliez 
pas de modifier les lignes 4120 et 4130 
du listing «ANN 1» en fonction de la nu- 
mérotation que vous aurez adopté. 


6 — Liste des variables : 

mcy : valeur de 
HIMEM dans la 
routine de 
lancement 
BANKMAN 

g, d,h,b : valeur gauche, 
droit, haut, bas de 
bords de fenêtre 

cpa, cte, cgr : couleur papier, 
texte, graphique 
des fenêtres 

dh, dh$ : double hauteur 

nbc : nombre de 
caractères 

nbfic : nombre de fiches 
dans un fichier 

fic : numéro de fiche 

a & a — 

acy'#t 

26 CALL acy'## »YG 

27 DATA E,FF,CD,15,B9,EB,DD,66,1,DD >VJ 

,6E,0, 73,23, 72,C9°## 

30 GOTO 290 TC 

40 *------ >LD 

50 ‘routine fenetre LE 

CRE ELLE EEEEEEECEET) >LF 

70 ’Mise en place >LG 

80 '===========-=- >LH 


80 WINDOW#1,g,d,h,b:PAPER#1,cpa:PEN >UQ 
#i,cte:CLS# 

100 y=((b-h+1)#16)-2:x=((d-g+1)#16) CL 
-2 

110 MOVE((g-1)#16)+1,400-(b#16)+1,c DEF 
gr, 0 

120 DRAUR 0,y:DRAWR x,0:DRAWR 0,-y: >ND 
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nbfic 


: nombre de fichiers 


fich : numéro du fichier 
dans le fichier 
INIT 

nm$ : nom 

pnm$ : prénom 

ad1$,ad2$,ad3$  : adresse 

tel1$, tel2$ : téléphone 
domicile et travail 

ren1$ à ren6$ : renseignements 

nmfich$ : nom de fichier 

app$ : numéro d’appel 
MINITEL 

cod$ : code d’appel 
MINITEL 

ser1$, ser2$, ser3$ : service rendu 
MINITEL 

cle$ : clé d’accès 
MINITEL 

nfi : nombre de fiche 
MINITEL 

fi : numéro de fiche 
MINITEL 

xx, (av, lop : positionnement 
impression 
d’enveloppe 

tet$ : en-tête d’adresse 


en impression 


-"c" précédant ces variables est utilisé 
dans la séquence de tri. 


J'espère maintenant que vous ferez 
une bonne utilisation de ce logiciel. Si, 
malgré tout, vous avez quelques problè- 
mes vous pouvez toujours me contacter 
puisque mes coordonnées sont incluses 
dans le programme. 


DRAWR-1,0 

130 HOVER 0,2:DRAUR x-2,0:DRAUR 0,y >EK 
-2 

140 MOVER-6,-4:DRAWR-(x-12),0:DRAWR NT 
0,-(y-12) 

150 WINDOW#1,g+1,d-1,h+1,b-1:CLS#1: >KC 
RETURN 

160 ’effacesent >RH 
170 "========2=- >RJ 
180 WINDOW#1,g,d,h,b:PAPER#1,0:CLS# >PX 
1:RETURN 


190 ?-------------- TA 
200 ‘procedure double hauteur >RC 
PATES II TETITEISITTITITEITEL >RD 


220 FOR dh=1 TO LEN(dh$):c=HIMEM+1+ >HP 
8#(ASCCHID$(dh$, dh, 1))-32):SYMBOL 2 
53,0,PEEK(c),PEEK(c),PEF”{c+1),PEEK 
(c+1),PEEK(c+2),PEEK(c+2),FEEK(c+3) 


:SYHBOL 252, PEEK(c+3), PEEK(c+4),PEE 
KCc+4),PEEK(c+5), PEEK(c+5), PEEK(c+6 

), PEEK(c+6),0 

230 LOCATE#, x, y:PRINTEL,CHRS(253) DE 
240 LOCATER!, x, y+1:PRINT#1,CHRS(252 DEY 
) 

250 x=x+1:SOUND 1,50#dh,12:NEXT dh: >LQ 
RETURN 


V 


260 *------------ >RJ 
270 ‘initialisation >RK 
280 YHHSHMENEUNEINN )TA 


290 CLEAR:CLEAR INPUT :MODE 1:BORDER >TY 
O:INK 0,13:INK 1,0: INK 2,25: INK 3, 
13:SYHBOL AFTER 32'## INK 3,10 

300 ’routine azerty >RD 


320 SYHBOL 64,56,4,120, 12, 124,140,1 >CH 
18 

330 SYHBOL 91,24,36, 36, 24 TD 
340 SYHBOL 92,0,0,60,102,96, 102,60, >BA 
8 

350 SYHBOL 93,60,32,60,36,36,60,4,6 >CE 
0 

360 SYMBOL 123,28, 32,60, 102,126,96, CZ 
60 

370 SYMBOL 124,56, 4, 102, 102, 102,102 >DQ 
,62 

380 SYMBOL 125,56, 4,60,102,126,96,6 CL 
0 

390 SYHBOL 126,102, 204 )QC 
400 GOSUB 1470:GO0SUB 530:üSCREENSVA >NR 
P,1,2:INK 3,10:MO0DE 1:G0T0 590’## n 

e garder que GOSUB 1470 


500 "------------- >RF 
510 ‘encadrement initial >RG 
520 HHHANNEENNENENEENNE >RH 


530 WINDOW#0, 2,39,2,24:PAPER#O,0:CL >GG 
540 

540 PLOT 2,2,1:DRAWR 0,394:DRAUR 63 JE 
4,0:DRAUR 0, -394:DRAVR-634, 0 

550 PLOT 4,4,2:DRAUR 0,390:DRAUR 63 >VE 
0,0:DRAUR 0,-390:DRAUR-630, 0:RETURN 

**## supprimer RETURN 


560 !------ )TB 
570 ‘soft de presentation TC 
CYTORE ET EETEET PESTE TE >TD 


590 GOSUB 53%0:g=10:d=31:h=3:b=16:cp >GD 
a=3:cte={:cgr=2:GO0SUB 90'## suppris 

er GOSUB 530 

600 SOUND 1,284,12:LOCATE#1,1,1:PRI >LP 
NT#1, "ADRESSES - TELEPHONE" 

610 SOUND 1,142, 12:LOCATE#1,4,3:PRI DEA 
NT#1, "RENSEIGNEMENTS" 

620 SOUND 1,71,12:LOCATE#1,3,6:PRIN >KA 
Th, "presentation de” 

630 FOR 1=9 TO 12:LOCATE#1,4,1:PRIN )EB 
T#i,CHR$(24);" ":CHR$( 

24) :NEXT i 

640 PAPER#1,1:PEN#1,2:dh$="BUREAUTH DHL 


EQUE" :x=5:y=10:GOSUB 220 

650 LOCATE 16,17:PRINT"(*:CHR$(24): >BM 
"ESPACE" ;CHR$(24);">" 

660 LOCATE 13,21:PRINT"A chaque sen >KB 
u" 

670 LOCATE 5,23:PRINT"Saisie direct >WL 
e par la sajuscule":SOUND 1,284, 12: 
CALL &BB06 


1000 !------------ )D 
1010 ’senu general )E 
1020 "HHHHHHHHHNEES )XF 


1030 g=7:d=34:h=8:b=20:cpa=1:cte=3: >UP 

cgr=2:G0SUB 90 

1040 LOCATE#1,1,1:PRINT#1,"# MENU P >PK 

RINCIPAL" 

1050 PLOT 112,252,0:DRAW 364,252  >YL 

1060 LOCATE#1,3,3:PRINT#1,"_ voule >UY 

z-vous :" 

1070 RESTORE 1110:FO0R i=5 TO 10:REA DEN 

D a$:LOCATE#1,2, i:PRINT#1,a$ ; :NEXT: 

SOUND 1,142,12:G0T0 1080'## suppris 

er GOTO 1080 

1075 CLS:üSCREENSWAP, 1,2'## NN 

1080 LOCATE 16,17:PRINT CHR$(21);FR >DM 

EC"*);CHR$(6):GOSUB 1250 

1090 r=INSTR("ICHAPR",r$) VX 

1095 üSCREENSWAP, 1, 2° ## )QU 

1100 ON r GOSUB 3030,6030, 4030, 9030 >WG 

:9030,8510:G0T0 1075'## remplacer G 

OTO 1075 par GOTO 1030 

1110 DATA "# Initialiser l'annuaire >FD 

*,"# Consulter un fichier","# Modif 

ler un fichier","# Accès Minitel®," 

# Pages inforsations","# Revenir au 
lanceur" 

1200 ?--------------- )F 


1210 ’Sous-prograsses >1G 
1220 PANNEAU >XH 
1230 'Attente De 
1240 ’======- >)XK 


1250 r$="":r$=UPPERS(INKEYS): IF r$= >NB 
"ATHEN 1250'Attention ne pas change 
r la foraule 


1260 RETURN >FC 
1270 continuation, arret >YC 
1280 "=================2=- >YD 


1290 g=6:d=35:h=22:b-24:cpa=3:cte=2 >VV 
:cgr=1:GOSUB 90 

1300 SOUND 1,71,12:LOCATE#1,1,1:PRI DFB 
NT#i, "Voulez-vous continuer (0/N)?" 


1310 GOSUB 1250 DWF 
1320 r=INSTR("ON",r$) >ON 
1330 RETURN >FA 
1340 ‘fenetre selection >YA 
1350 ’======-===-------=- >YB 


1360 g=4:d=37:h=21:b=24:cpa=1:cte=0 >VN 
:cgr=2:G0SUB 90 


1370 LOCATEH,1,1:PRINT#1,"Selectio >PM 
n -> “ESPACE"":LOCATE#1,1,2:PRINT#1 
,"Choix -) “ENTER"" 

1380 RETURN >FF 
1390 fenetre sodifications >YF 
1400 *===============2=2==2=7 >1H 


1410 g=2:d=39:h=21:b=24:cpa=3:cte=2 >VM 
:cgr=1:G0SUB 90 

1420 SOUND 1,71,12:PEN#1,1:LOCATE#1 >RG 
+7,1:PRINT#i."#Modification à faire 
#":PEN#1,2 

1430 LOCATE#,1,2:PRINT#1,"> ";STRI DAY 
NG$(nbc, ".") :RETURN 

1440 ’ dimensionnement des tableaux )YB 


1460 ERASE na$,pna$,adi$,ad2$,ad3$, >NL 
tel1$,te124,rent$,ren2$, ren3$, rend 
,renb$,ren6$ 

1470 DIM na$(40),pna$(40),adi$(40), >WQ 
ad2$(40),ad3$(40),te11$(40),te128(4 

0) ,reni$(40),ren2$(40),ren3$(40),re 
n4$(40),ren5$(40),ren6$(40) 


1480 RETURN >FG 
1490 patience »YG 
1500 ’=======- 1] 


1510 g=11:d=30:h=21:b=24:cpa=i:cte= >WY 
O:cgr=2:G0SUB 90 
1520 dh$="PATIENCE ! S.V.P":x=2:y=1 >2B 
:GOSUB 220:RETURN 
1530 ’fenetre choix »YB 


1550 SOUND 1,71,12:LOCATE 10,17:PRI DAC 
NT CHR$(24);" “Suite” ou “Choix” "; 
CHR$ (24) :RETURN 


2000 !----------------------- )IE 
2010 "Sauvegarde d'un fichier )XF 
2020 PHHHMMHENNNENNENENNUENNUNENE )1G 


2030 OPENOUT nafich$(fich)+".ann* DE 
2040 WRITE#9,nbfic:1F nbfic=0 THEN )2F 
CLOSEOUT:GO0TO 2100 

2050 IF nbfic>1 THEN GOSUB 2120'-) >YL 
Procedure de tri 

2060 FOR fic=1 TO 40 >NJ 
2070 IF na$(fic)=""THEN 2090 >VH 
2080 WRITE#9,na$(fic),pna$(fic),adi >QR 
$(fic),ad2$(fic),ad3#(fic),tel1$(fi 
c),tel2#$(fic),renis(fic),ren2$(fic) 
.ren3$(fic),ren4$(fic),renS$(fic),r 
en6$(fic) 

2090 NEXT:CLOSEOUT >PZ 
2100 PRINT CHR$(21):üERA ,nafich$(fi >HR 
ch)+",.bak":PRINT CHR$(6) 


2110 RETURN >EH 
2120 "Tri )XH 
2130 "=== )1J 
2140 FOR fic=2 TO nbfic >QF 
2150 FOR j=fic TO 2 STEP-1 >TQ 


2160 IF na$(j-1)=nm$(j)THEN GOSUB 2 >EU 
200 


2170 IF na$(j-1)>nm$(j)THEN GOSUB 2 >VU 
230 ELSE GOTO 2190 


2180 NEIT j >vH 
2190 NEXT fic:RETURN )Ql 
2200 IF pna$(j-1)>pna$(j)THEN 2230 NX 
ELSE RETURN 

2210 "Echange des fiches )IH 
2220 "=============2==2==- 1 
2230 cna$=na$(i-1):nn$(j-1)=na$(j): DPT 
ns$(j)=cnn$ 


2240 cpna$=pna$(j-1):pna$(i-1)=pna$ 
(J):pns$(j)=cpnat 

2250 cadi$=adi$(j-1):adi$(j-1)=adi$ 
(j):adi$(})=cadis$ 

2260 cad2$=ad2$(j-1):ad2$(j-1)=ad2$ >VH 
(j):ad2$(j)=cad2$ 

2270 cad3$=ad3$(i-1):ad3$(1-1)=ad34$ 
(j):ad3$(1)=cad34$ 

2280 ctel1$=tel1$(j-1):te118(j-1)=t 
eli$(j):tel1$(j)=cteli$ 

2290 ctel2$=tel12$(j-1):te128(4-1)=t 
el2$(j):te12$(j)=ctel2$ 

2300 creni$=reni$(i-1):ren1$(j-1)=r 
eni$(j):ren1$(i)=creni$ 

2310 cren2$=ren2$(j-1):ren2$(j-1)=r 
en2$(j):ren2$(j)=cren2$ 

2320 cren3$=ren3$(j-1):ren38(j-1)=r 
en3$(}j):ren3$(1)=cren3$ 

2330 crenâ$=ren4$(j-1):ren4$(j-1)=r 
en4$(}):ren4$(j)=cren4t 

2340 cren5$=ren5$(j-1):ren5$(j-1)=r 
enS$(j):ren5$(j)=crens$ 

2350 cren6$=ren6$(j-1):ren6#(}-1)=r 
en6$(j):ren6$(j)=cren6t 


2360 RETURN >FE 
2400 ==". Del 
2410 Sauvegarde du fichier INIT  >XK 
2420 PHRHHMENNNEENNENNENNNNEENX )YA 
2430 OPENOUT"INIT.ann" >Uu 


2440 WRITE#9,nbfich:1F nbfich=0 THE >JY 
N 2470 


2450 FOR 1=1 TO nbfich QT 
2460 WRITE#9, nafich$(i):NEXT YU 
2470 CLOSEOUT )2D 


2480 PRINT CHR$(21) :üERA,"INIT.bak" >FG 
:PRINT CHR$(6) :RETURN 


2500 *----------""-"-""""- DK 
2510 "Chargement d'un fichier )YA 
PEYRE EE ETEE EEE EPETET PTE PTE »YB 


2530 g=3:d=38:h=22:b=24:cpa=3:cte=2 >VT 
:cgr=1:GOSUB 90 

2540 SOUND 1,71,12:LOCATE#1,2,1:PRI >YW 
NT#1,CHR$(18) ; "Numéro du fichier À 
charger : .." 

2550 LOCATE#1, 32, 1: INPUT#1,"",fich: >YC 
IF fich)10 THEN 2540 


2560 GOSUB 180:G0SUB 1510:fic=0 24 
2570 GOSUB 1460 )IH 
2580 OPENIN nafich$(fich)+".ann"  DBT 


2590 INPUT#9,nbfic:I1F nbfic=0 THEN 
CLOSEIN : RETURN 

2600 FOR fic=1 TO nbfic 

2610 INPUT#9,na$(fic),pna$(fic),adi 
$(fic),ad2$(fic),ad3$(fic),tel1$(fi 
c),tel2$(fic),reni$(fic),ren2$(fic) 
,ren3$(fic),ren4$(fic),ren5$(fic),r 
en6$(fic):NEXT 

2620 CLOSEIN:fic=nbfic 

2630 RETURN 


2810 Chargement du fichier INIT 
PLVIRETT EEE PTT ETES TETE 
2830 LOCATE 4,5:PRINT'"Liste des fic 
hiers disponibles :" 

2840 OPENIN"INIT.ann" 

2850 INPUT#9,nbfich:1F nbfich=0 THE 
N LOCATE 1,5:PRINT"I1 n'y a pas de 
fichiers disponibles !": GOTO 2890 
2860 FOR fich=1 TO nbfich 

2870 INPUT#9,nafich$(fich) 

2880 LOCATE 13,6+fich:PRINT USING"4 
#"sfich;:PRINT" # "onafich$(fich):N 
EXT 

2890 CLOSEIN:RETURN 


3010 ’Initialiser l'annuaire 

3020 YHHAMMANMNENNEENEUEENNE 

3030 CLS:g=2:d=39:h-2:b=4:cpa=0:cte 
=2:cgr=1:G0SUB 90 

3040 LOCATE#1,5,1:PRINTEI,"#-# 
NITIALISATION ” +#-#" 

3050 GOSUB 2830'-)Charge + liste ti 
chier INIT 

3060 g=2:d=39:h=19:b=24:cpa=1:cte=3 
:cgr=2:GO0SUB 90 

3070 SOUND 1,142, 12:LOCATE#1,3,1:PR 
INT#1, "Voulez-vous : ":LOCATE#1, 7,2 
:PRINT#1,"# Revenir au menu" 

3080 IF nbfich-0 THEN PEN#1,2:LOCAT 
E#1,7,3:PRINT#{, "Suppression impos 
sible>":PEN#1,3 ELSE LOCATE#1, 7,3:P 
RINT#1,"# Supprimer un fichier" 
3090 IF nbfich=10 THEN PEN#1,2:LOCA 
TE#1,7,4:PRINT#1, "(Ouverture isposs 
ible)":PEN#1,3 ELSE LOCATE#1, 7,4:PR 
INT#1,"# Ouvrir un nouveau fichier" 


3100 GOSUB 1250 

3110 r=INSTR("RSO",r#) 

3120 ON r GOTO 3260, 3200, 3130:GO0T0 
3070 

3130 GOSUB 180:g=2:d=39:h=22:b=24:c 
pa=3:cte=2:cgr=1:G0SUB 90 

3140 nbfich=nbfich+i:fich=nbf ich 
3150 SOUND 1,71,12:LOCATE#1,2,1:PRI 
NT#1,CHR$ (18) ; :PRINT#1, "Non du fich 
ier à ouvrir : S 


)UR 


)QF 
>DC 


>DA 


3160 LOCATE#1,28,1:INPUT#1,"",nafic >HY 

h$(fich) 

3170 IF LEN(nafich$(fich))>8 THEN 3 >EE 
150 

3180 nafich$(fich)=UPPER$(nafich$(f >YM 

ich)):G0SUB 180:G0SUB 1510:G0SUB 24 

30° ->Sauvegarde INIT 

3190 GOSUB 2030:G0T0 3030'->Sauvega >TX 

rde fichier(1010) 

3200 GOSUB 180:g-2:d=39:h=22:b=24:c 

pa=3:cte=2:cgr=1:G0SUB 90 

3210 SOUND 1,71,12:LOCATE#1,2,1:PRI 

NT#1, "Nuséro du fichier à supprimer 
. n 


>HK 


>P4 


3220 LOCATE#1, 34, 1: INPUT#1,"",fich: 
IF fich(i OR fich>nbfich THEN 3060 

3230 GOSUB 180:GO0SUB 1510:üERA, nafi 
ch$(fich)+".ann" 

3240 nafich$(fich)="":FOR fich=fich 
+1 "T0 nbfich:nafich$(fich-1)=nafich 
$(fich) :NEXT :nbf ich=nbf 1ch-1 :GOSUB 

2430" ->Sauvegarde INIT 

3250 GOTO 3030 

3260 RETURN 


V 


v 


4 


VV 


LH 


4010 "Modifier un fichier 

4020 *HAHIHNNNNNNNNE 

4030 CLS::g=2:d=39:h=2:b=4:cpa=0:ct 
e=2:cgr=1:G0SUB 90 

4040 LOCATE#1,6,1:PRINT#1,"#-3 
ODIFICATION “ #-#" 

4050 GOSUB 2830’ -)>chargetliste fich >XE 
lier INIT 

4060 IF nbfich=0 THEN RETURN 

4070 GOSUB 2530’ chargement du fichi 
er desande 

4080 GOSUB 6530’ lister le fichier d 
esande 

4090 g=2:d=38:h=19:b=24:cpa=1:cte=3 
:cgr=2:G0SUB 90 

4100 IF nbfic=40 THEN 4150 

4110 SOUND 1,142,12:LOCATE#1,3,1:PR 
INT#1, "Voulez-vous : ":LOCATE#1,5,2 
:PRINT#1,"# Revenir au senu princip 
al*:LOCATE#1,5,3:PRINT#1,"# Suppris 
er, Ajouter ou Modifier" :LOCATE#1, 7 
»4:PRINT#1, "une fiche" 

4120 GOSUB 1250 

4130 r=INSTR("RSAM",r$) 

4140 ON r GOTO 4190,5030, 4530, 5230: 
GOTO 4110 

4150 SOUND 1,142,12:LOCATE#1,3,1:PR 
INT#i, "Voulez-vous : ":LOCATE#1,5, 2 
:PRINT#1,"# Revenir au menu princip 
al":LOCATE#,5,3:PRINT#1,"* Suppris 
er, Modifier une fiche":LOCATE#1,3, 
4:PEN#1,2:PRINT#1, "(Ouverture de f1 
ches inpossible)":PEN#1,3 

4160 GOSUB 1250 


>XB 


4170 r=INSTR("RSM",r$) >RC 
4180 ON r GOTO 4190,5030,5230:G0T0 >EM 
4160 


4190 RETURN >FH 
4500 !------------ »ÿB 
4510 ‘Ajouter une fiche )YC 
TYDRETTETTETTEIITIITE >"D 


4530 CLS:fic=ficti:LOCATE 2,1:PRINT >LY 

“fichier "snafich$(fich) 

4540 LOCATE 29,1:PRINT'fiche ";fic DEN 

4550 g=2:d=39:h=21:b=24:cpa=1:cte=3 >VW 
:cgr=2:G0SUB 90 

4560 LOCATE#1,2,1:PRINT#1, "Pressez >BP 

“ENTER” pour un titre long":LOCATES 
1,3,2:PRINT#{,"(société, associatio 

n ou autre)" 

4570 SOUND 1,71,12:LOCATE 2,3:PRINT >XH 
CHR$ (18); "Nom: ........... ":LOCATE 
7,3:INPUT"*,na$(fic):nat(fic)=UPPE 

R$(na$(fic)) 

4580 IF LEN(na$(fic))>11 THEN 4570 

4590 IF LEN(na$(fic))=0 THEN 4630 

4600 LOCATE 7,3:PRINT CHR$(18) ;na$( 

fic):G0SUB 180 

4610 SOUND 1,71,12:LOCATE 20,3:PRIN >XK 

T'Prenon: .......... ":LOCATE 28,3: 
INPUT"" ,pna$(fic) 

4620 IF LEN(pnat(fic))>10 THEN 4610 
ELSE LOCATE 28,3:PRINT CHR$(18) ;pn 

n$(tic):G0TO 4670 

4630 CLS#1:LOCATE#1,5,1:PRINT#1,"In >RA 

scrivez ici un libéllé de":LOCATE#{ 

»4,2:PRINTH "société, association 

ou autre" 

4640 SOUND 1,71,12:LOCATE 2,3:PRINT 

"> "3STRINGS(34,*.") :LOCATE 4,3:LIN 

E INPUT"",na$(fic):na$(fic)="#"+UPP 

ER$(na$(fic)) 

4650 IF LEN(na$(fic)))35 THEN 4630 

4660 IF LEN(na$(fic))=1 THEN 4560 

4670 GOSUB 90:LOCATE#1,3,1:PRINT#, 

ATTENTION! Respectez les formats": 

LOCATE#1,3,2:PRINT#1, "pour l'inpres 

sion sur enveloppe" 

4680 LOCATE 2,5:PRINT"Adresse : 

TRINGS(25,",.") 

4690 LOCATE 12,6:PRINT STRING$(25," >FH 

.) 

4700 LOCATE 12,7:PRINT"..... 

NG#(19,".") 

4710 SOUND 1,71,12:LOCATE 2,5:PRINT 

“Adresse : ";CHR$(18) ;STRINGS(25,". 

*):LOCATE 12,5:LINE INPUT", adi$(fi 

c) 

4720 IF LEN(adi$(fic))>25 THEN 4710 
ELSE LOCATE 12,5:PRINT CHR$(18) ;ad 

i$(fic) 

4730 SOUND 1,71,12:LOCATE 12,6:PRIN 

T CHR$(18) ;STRINGS(25,"."):LOCATE 1 


>2G 
>PG 


#35 


";STRI 


V 


HU 


2,6:LINE INPUT" ,ad2$ (fic) 
4740 IF LEN(ad2$(fic))>25 THEN 4730 
ELSE LOCATE 12,6:PRINT CHR$(18);ad 
28 (tic) 

4750 SOUND 1,71, 12:LOCATE 12, 7:PRIN 
T CHRS(AB); "STRING (19,".") 
:LOCATE 12,7:LINE INPUT"®,ad3$(fic) 


4760 IF LEN(ad3$(fic))>25 THEN 4750 
ELSE LOCATE 12,7:PRINT CHR$(18) ;ad 
3$(fic) 

4770 GOSUB 180 

4780 SOUND 1,71,12:LOCATE 2,9:PRINT 
CHR$(18);"Téléphone domicile : ..…. 
site ":LOCATE 23,9: INPUT", teli$(fi 
c) 

4790 IF LEN(teli$(fic))>8 THEN 4780 


4800 SOUND 1,71,12:LOCATE 2,10:PRIN 
T CHR$(18); "Téléphone travail 
ee ":LOCATE 23, 10: INPUT", tel124( 
fic) 

4810 IF LEN(tel2$(fic))>8 THEN 4800 


4820 LOCATE 2,12:PRINT"Renseignesen 
ts :" 

4830 FOR i=13 TO 18:LOCATE 2,i:PRIN 
T"- ":STRING#(33,".") :NEXT 

4840 SOUND 1,71,12:LOCATE 2,13:PRIN 
T"- ";CHR$(18) ; STRING#(33,".") :LOCA 
TE 4,13:LINE INPUT'"",reni$(fic) 
4850 IF LEN(reni$(fic))>33 THEN 484 
0 ELSE LOCATE 4,13:PRINT CHR#(18):r 
en{$(fic) 

4860 SOUND 1,71,12:LOCATE 2,14:PRIN 
T"- ";CHR$(18) ;STRING#(33,".") :LOCA 
TE 4,14:LINE INPUT"",ren2$(fic) 
4870 IF LEN(ren2$(fic))>33 THEN 486 
0 ELSE LOCATE 4,14:PRINT CHR#(18);r 
en2$(fic) 

4880 SOUND 1,71,12:LOCATE 2,15:PRIN 
T"- "3; CHR$(18) ; STRING$(33,".*) :LOCA 
TE 4,15:LINE INPUT"",ren3$(fic) 
4890 IF LEN(ren3$(fic))>33 THEN 488 
0 ELSE LOCATE 4,15:PRINT CHR#(18):r 
en3$(fic) 

4900 SOUND 1,71,12:LOCATE 2,16:PRIN 
T"- ";CHR$(18) ;STRING#(33,".") :LOCA 
TE 4,16:LINE INPUT"" ,ren4$(fic) 
4910 IF LEN(ren4$(fic))>33 THEN 490 
0 ELSE LOCATE 4,16:PRINT CHR#(18):r 
en4$(fic) 

4920 SOUND 1,71,12:LO0CATE 2,17:PRIN 
T"- ";CHR$(18) ; STRINGS(33,"."):LOCA 
TE 4,17:LINE INPUT" ,renS#$(fic) 
4930 IF LEN(ren5$(fic))>33 THEN 492 
0 ELSE LOCATE 4,17:PRINT CHR$({B):r 
en5$(fic) 





Èj 


QG 


)BL 


>RI 


4940 SOUND 1,71,12:LOCATE 2,18:PRIN 
T"- ";CHR$(18) ;STRING$(33,".") :LOCA 
TE 4,18:LINE INPUT"",ren6#(fic) 
4950 IF LEN(ren6$(fic))>33 THEN 494 
0 ELSE LOCATE 4,18:PRINT CHR$(18);r 
en6$(fic) 

4860 nbfic=nbficti:1F nbfic=40 THEN 
GOSUB 1510:G0T0 2030 

4970 GOSUB 180:g=5:d=36:h=21:b=24:c 
pa=i:cte=0:cgr=2:G0SUB 90:LOCATE#, 
1,1:PRINT#1, "Voulez-vous ajouter en 
core une fiche à ce fichier (0/N) 
?*::G0SUB 1310’continuation, arret 
4980 ON r GOTO 4530,4990:G0T0 4970 
4990 GOSUB 180:GO0SUB 1510:G0T0 2030 
*->sauvegarde du fichier aodifie 


v 


RH 


>AQ 
CZ 


5010 ‘Enlever une fiche 

5020 "HARMAN 

5030 GOSUB 180:g=4:d=37:h=22:b=24:c 
pa=3:cte=2:cgr=1:GO0SUB 90 

5040 CLEAR INPUT :SOUND 1,36,15:LOCA 
TE#1,1,1:PRINT#1,CHR$(18) ; "N° de la 
fiche à supprimer : ..":LOCATE#1,3 
0,1: INPUT#1,"", fic 

5050 IF fic(i OR fic>40 THEN 5040'- 
)laisser ains1 fic>40 

5060 na$(fic)="":pna$(fic)="":ad1$( 
fic)="":ad2$(fic)="":ad3$(fic)="":t 

eli$(fic)="":tel2$(fic)="":reni$(fi 
c)="*:ren2$(fic)="":ren3$(fic)="":r 

en4$(fic)="":ren5$(fic)="":ren6$(ti 
c)="" 

5070 nbfic=nbfic-1:CLS#1:SOUND 1,28 
4,12:LOCATE#1,8,1:PRINT#1, "Fiche n° 
“sfic;"supprinée":FOR att=0 TO 1000 
:NEIT 

5080 GOSUB 180:g=4:d=37:h=21:b=24:c 
pa={:cte=0:cgr=2:GOSUB 90:LOCATE#, 
1,1:PRINT#1, "Voulez-vous suppriser 
une autre fiche de ce fichier (0 
IN)?" ;:GOSUB 1310°->0/N 

5090 ON r GOTO 5030,5100 >QT 

5100 GOSUB 180:G0SUB 1510:G0T0 2030 >CG 
’-)sauvegarde fichier modifie 


5200 !------------ >XK 
5210 ’sodifier une fiche )YA 
5220 'HHHMHMEMHEHIANEEUE >YB 


5230 GOSUB 180:g=4:d=37:h=22:b=24:c >HQ 
pa=3:cte=2:cgr=1:GOSUB 90 

5240 CLEAR INPUT:SOUND 1,36,15:LOCA DIX 
TE#1,2,1:PRINT#1,CHR$ (16) ; :PRINT#1, 

"N° de la fiche à modifier : ..":LO 
CATE#1,30,1:INPUT#1,"".fic:IF ficti 

OR fic>nbfic THEN 5240 

5250 CLS:SOUND 1,284, 10:LOCATE 2,1: >NA 
PRINT"fichier ";nafich$(fich) :LOCAT 

E 29,1:PRINT"fiche "fic 

5260 IF LEFT$(na$(fic),1)="#"THEN L DNF 


OCATE 2,3:PRINT") ";MID$(na$(fic),2 
,34):G0T0 5280 


5270 LOCATE 2,3:PRINT"Non : ";na$(f 


ic):LOCATE 20,3:PRINT"Prenos : ";pn 
s$lfic) 
5280 LOCATE 2,5:PRINT'Adresse : ":L 


OCATE 12,5:PRINT adi$(fic):LOCATE 1 
2,6:PRINT ad2$(fic):LOCATE 12,7:PRI 
NT ad3$(fic) 

5290 LOCATE 2,9:PRINT"Téléphone dos 
icile : "steli$(fic):LOCATE 2,10:PR 
INT'Téléphone travail : ";tel2$(fi 
c):LOCATE 2,12:PRINT"Renseignesents 


. 


5300 LOCATE 2,13:PRINT"- "sreni$(fi 
c):LOCATE 2,14:PRINT"- ":ren2$(fic) 
:LOCATE 2, 15:PRINT"- firen3$(fic):L 
OCATE 2,16:PRINT"- "iren4$(fic):LOC 
ATE 2,17:PRINT"- “sren5$(fic):LOCAT 
E 2,18:PRINT"- “iren6$(fic) 

5310 IF LEFT$(na$(fic),1)C>"#"THEN 
5360 

5320 GOSUB 1360:LOCATE 4,3:PRINT CH 
R$(24) ;MHID$(na$(fic),2);CHR$(24) 
5330 CALL &BB06:1F INKEY(6)=0 THEN 
nbc=34:GO0SUB 1410:G0T0 5640 

5340 LOCATE 4,3:PRINT HID$(nm$(fic) 
2,34) 

5350 GOTO 5410 

5360 GOSUB 1360:LOCATE 8,3:PRINT CH 
R$(24) ;na$(fic) ;CHR$(24) 

5370 CALL &BB06:1F INKEY(6)=0 THEN 
nbc=11:G0OSUB 1410:G0T0 5650 

5380 LOCATE 8,3:PRINT na$(fic):LOCA 
TE 29,3:1F pna$(fic)=""THEN PRINT") 
"ELSE PRINT CHR$(24) ;pna$(fic) ;CHR$ 
(24) 

5390 CALL &BB06:1F INKEY(6)=0 THEN 
nbc=10:G0SUB 1410:G0T0 5660 

5400 LOCATE 29,3:PRINT pna$(fic) 
5410 LOCATE 12,5:1F adi$(fic)=""THE 
N PRINT")"ELSE PRINT CHR$(24) ;ad1$( 
fic);CHR$(24) 

5420 CALL &BB06:1IF INKEY(6)=0 THEN 
nbc=25:G0SUB 1410:G0T0 5670 

5430 LOCATE 12,5:PRINT adi$(fic):LO 
CATE 12,6:1F ad2$(fic)=""THEN PRINT 
">"ELSE PRINT CHR$(24) ;ad2$(fic) ;CH 
R$ (24) 

5440 CALL &BB06:1F INKEY(6)=0 THEN 
nbc=25:GOSUB 1410:G0T0 5680 

5450 LOCATE 12,6:PRINT ad2$(fic):LO 
CATE 12,7:IF ad3$(fic)=""THEN PRINT 
")"ELSE PRINT CHR$(24) ;ad3$(fic) ;CH 
R$(24) 

5460 CALL &BB06:1F INKEY(6)=0 THEN 
nbc=25:GO0SUB 1410:G0T0 5690 

5470 LOCATE 12,7:PRINT ad3$(fic):LO 
CATE 23,9:IF teli$(fic)=""THEN PRIN 


v 


ZK 


>HH 


T')'ELSE PRINT CHR$(24);teli$(fic); 

CHR$ (24) 

5480 CALL &BB06:1F INKEY(6)=0 THEN 

nbc=8:G0SUB 1410:G0T0 5700 

5490 LOCATE 23,9:PRINT teli$(fic):L 

OCATE 23,10:1F tel2$(fic)=""THEN PR 
INTOMELSE PRINT CHR$(24);tel2$(fic 
);CHR$ (24) 

5500 CALL &BB0G6:1F INKEY(6)=0 THEN 

nbc=8:G0SUB 1410:G0T0 5710 

5510 LOCATE 23,10:PRINT tel2$(fic): 

LOCATE 4,13:1F reni$(fic)=""THEN PR 
INT®)"ELSE PRINT CHR$(24) sreni$(fic 
);CHR$ (24) 

5520 CALL &BB06:1IF INKEY(6)=0 THEN 

nbc=33:G0SUB 1410:G0T0 5720 

5530 LOCATE 4,13:PRINT reni$(fic):L 

OCATE 4,14:1F ren2$(fic)=""THEN PRI 

NT')"ELSE PRINT CHR$(24) ;ren2$(fic) 
;CHR$ (24) 

5540 CALL &BB06:IF INKEY(6)=0 THEN 

nbc=33:GO0SUB 1410:G0T0 5730 

5550 LOCATE 4,14:PRINT ren2$(fic):L 

OCATE 4,15:1F ren3$(fic)=""THEN PRI 
NT')*ELSE PRINT CHR$(24) ;ren3$(fic) 
;CHR$ (24) 

5560 CALL &BB06:1IF INKEY(6)=0 THEN 

nbc=33:G0SUB 1410:G0T0 5740 

5570 LOCATE 4,15:PRINT ren3$(fic):L 

OCATE 4,16:1F ren4$(fic)=""THEN PR] 

NT")"ELSE PRINT CHR$(24) ;ren4$(fic) 
;CHR$ (24) 

5580 CALL &BB06:IF INKEY(6)=0 THEN 

nbc=33:GO0SUB 1410:G0T0 5750 

5590 LOCATE 4,16:PRINT ren4$(fic):L 

OCATE 4,17:1F renS$(fic)=""THEN PRI 
NT")"ELSE PRINT CHR$(24) :renS$(fic) 
;CHR$ (24) 

5600 CALL &BBOG6:1IF INKEY(6)=0 THEN 

nbc=33:G0SUB 1410:GO0T0 5760 

5610 LOCATE 4,17:PRINT ren5$(fic):L 

OCATE 4,18:1F ren6$(fic)=""THEN PRI 
NT")"ELSE PRINT CHR$(24) ;ren6$(fic) 
;CHR$ (24) 

5620 CALL &BBO6:1F INKEY(6)-0 THEN 

nbc=33:G0SUB 1410:G0T0 5770 

5630 LOCATE 4,18:PRINT ren6$(fic):G 

0TO 5780 

5640 LOCATE#1,3,2: INPUT#1,"",na$(fi 
c):na$(fic)="#"+UPPER$(na$(fic)):LO 
CATE 4,3:PRINT STRING$(34," "):LOCA 
TE 4,3:PRINT MID$(na$(fic),2,34) :G0 
SUB 180:G0SUB 1360:GO0T0 5410 

5650 LOCATE#, 3,2: INPUT#1,"",na$(fi 
c):na$(fic)=UPPER$(na$(fic)):LOCATE 
8,3:PRINT" ":LOCATE 8,3: 
PRINT na$(fic):GOSUB 180:G0SUB 1360 

:G0T0 5380 


5660 LOCATE#1,3,2:INPUT#1,"",pna$(f 
ic)::LOCATE 29,3:PRINT CHR$(18) ; pne 
$(fic):GOSUB 180:GOSUB 1360:G0T0 54 
00 

5670 LOCATE#1,3,2:LINE INPUT#1,"",a 
di$(fic):LOCATE 12,5:PRINT CHR$(18) 
sadi$(fic):G0SUB 180:G0SUB 1360 :GO0T 
0 5430 

5680 LOCATE#,3,2:LINE INPUTH1,"",a 
d2$(fic):LOCATE 12,6:PRINT CHR$(18) 
sad2$(fic):G0SUB 180:G0SUB 1360 :GO0T 
0 5450 

5690 LOCATE#1,3,2:LINE INPUT#1,"",a 
d3$(fic):LOCATE 12,7:PRINT CHR$(18) 
sad3$(fic):GOSUB 180:GOSUB 1360:G0T 
0 5470 

5700 LOCATE#1,3,2:INPUT#1,"",tel1$( 
fic):LOCATE 23,9:PRINT CHR$(18);tel 
1$(fic):G0SUB 180:G0SUB 1360:G0T0 5 
‘490 

5710 LOCATE#1,3,2: INPUT, "",tel2$( 
fic):LOCATE 23,10:PRINT CHR$(18);te 
12$(fic):G0SUB 180:GO0SUB 1360:G0T0 

5510 

5720 LOCATE#1,3,2:LINE INPUT#,"",r 
en{$(fic):LOCATE 4,13:PRINT CHR$(18 
);reni$(fic):GOSUB 180:GO0SUB 1360:G 
0TO 5530 

5730 LOCATE#1,3,2:LINE INPUT#1,"",r 
en2$(fic):LOCATE 4,14:PRINT CHR$(18 
)sren2$(fic):G0SUB 180:G0SUB 1360:G 
OTO 5550 

5740 LOCATEH,3,2:LINE INPUT#1,"",r 
en3$(fic):LOCATE 4,15:PRINT CHR$(18 
);ren3$(fic):G0SUB 180:G0SUB 1360:G 
0TO 5570 

5750 LOCATE#1,3,2:LINE INPUT#1,"",r 
en4â$(fic):LOCATE 4,16:PRINT CHR$(18 
);ren4$(fic):GOSUB 180:GO0SUB 1360:G 
OTO 5590 

5760 LOCATE#1,3,2:LINE INPUT#1,"",r 
en5$(fic):LOCATE 4,17:PRINT CHR$(18 
)srenS$(fic):G0SUB 180:G0SUB 1360:G 
0TO 5610 

5770 LOCATE#1,3,2:LINE INPUTÉ{,"",r 
en6$(fic):LOCATE 4,18:PRINT CHR$(18 
);ren6#$(fic):G0T0 5630 

5780 GOSUB 180:g=5:d=36:h=21:b=24:c 
pa=t:cte=0:cgr=2:GOSUB 90:LOCATEH, 
1,1:PRINT#1, "Voulez-vous modifier u 
ne autre fiche de ce fichier (O0/N) 
an. 

2: 4 

57980 GOSUB 1310’ ->0/N 

5800 ON r GOTO 5810, 5820 

5810 GOSUB 6530:G0T0 5230'Liste le 

fichier + retour modif 

5820 GOSUB 180:GO0SUB 1510:G0T0 2030 
*-) SAUVEGARDE 


GR 


LA 


LE 


LA 


MC 


LA 


HJ 


V 


WF 


>CV 


Del 
>QH 
>TH 
>CR 


De 


6010 ‘Consulter un fichier )XK 

6020 "HHHMMHENNNENNEENNNEX >YA 

6030 CLS:g=2:d=39:h=2:b=4:cpa=0:cte >YX 
=2:cgr=1:G0SUB 90 

6040 LOCATE#1,6,1:PRINT#1,"#-# 
ONSULTATION “ #-#" 

6050 GOSUB 2830'->chargetliste fich >1G 
ier INIT 

6060 IF nbfich-=0 THEN RETURN )14 

6070 GOSUB 2530'->chargesent du fic >XF 

hier demande 

6080 GOSUB 6530'-)lister le fichier >YA 
denande 

6090 IF nbfic-0 THEN RETURN >vB 

6100 g=4:d=37:h=22:b=24:cpa=3:cte=2 >VP 
:cgr={:GOSUB 90 

6110 SOUND 1,71,12:LOCATE#1,2,1:PRI >TC 
NT#1,CHR# (18) ;"Nuséro de la fiche à 
voir : ..":LOCATE#, 30,1: INPUT#1," 
"fic 

6120 IF fic(1 OR fic>nbfic THEN 611 >CT 
0 

6130 GOSUB 7030'->Consulter une fic >XC 
he 

6140 IF nbfic=1 THEN RETURN )uY 
6150 GOSUB 180:g=4:d=37:h=21:b=24:c >CU 
pa=i:cte=0:cgr=2:G0SUB 90:LOCATE#, 
1,1:PRINT#1, "Voulez-vous consulter 
encore une fiche de ce fichier (0 
IN)9%3;:GO0SUB 1310! ->0/N 

6160 IF r=1 GOTO 6080 ELSE RETURN  )AG 


* CAN 


6500 ’---------------.- >YD 
6510 lister le fichier desande )YE 
6520 PHHHMMUMMMEENNNEENNUEUNUNEEX >ŸF 


6530 CLS:g=2:d=39:h=2:b=4:cpa=0:cte )YC 
=2:cgr=1:G0SUB 90 

6540 LOCATE#1,4,1:PRINT#1,"#-1 “ F RG 
ICHIER "inafich$(fich);" “ #-#" 

6550 IF nbfic=0 THEN LOCATE 6,5:S0U >XV 
ND 1,284, 10:PRINT"Pas de fiches dis 
ponibles !!":RETURN ELSE LOCATE 4,5 
:PRINT"Listes des fiches disponible 

g 

6560 IF nbfic(i1 THEN x=12 ELSE x=2 >BH 


6570 FOR 1=7 TO 18:LOCATE 1,1:PRINT >TH 
CHR$(18) :NEXT 

6580 FOR 1=1 TO 10:1F nn$(i)=""THEN DEV 
6610 

6590 LOCATE x,1+6:PRINT USING"#4";i >QR 
::PRINT®= « 

6600 LOCATE x+4,i+6:1F LEFT$(na$(i) >BR 
,1)="#"THEN PRINT HID$(na$(i),2,15) 

ELSE PRINT na$(i);" *;LEFT$(pna$(i) 

,1) 

6610 NEXT:1F nbfic<11 THEN 6840 )YL 
6620 FOR i=11 TO 20:1F na$(i)=""THE DFE 
N 6650 

6630 LOCATE 20,i-4:PRINT USING"##"; >RN 


1;:PRINT"= * 

6640 LOCATE 24,i-4:1F LEFT$(na$(i), 
1)="4"THEN PRINT HID$(na$(i),2,15)E 
LSE PRINT na$(i);" ";LEFT$(pnas(i), 
1) 

6650 NEXT:IF nbfic(21 THEN 6840 )R 


vV 


IN 


6660 GOSUB 1550 )YB 
6670 GOSUB 1250 >XK 
6680 r=INSTR("SC",r$) > 


6690 ON r GOTO 6700,6840:G0T0 6660 >AK 

6700 FOR i=7 TO 18:LOCATE 1,i:PRINT >TG 
CHR$(18) :NEXT 

6710 IF nbfic(31 THEN x=12 ELSE x=2 >BG 


6720 FOR i=21 TO 30:1F nm$({)=""THE DFJ 
N 6750 

6730 LOCATE x,i-14:PRINT USING"##"; >RG 
i::PRINT"= " 

6740 LOCATE x+4,i-14:1F LEFT$(na$(i >D4 
),1)="#"THEN PRINT MID$(na$(i),2,15 
)ELSE PRINT na$(i):;" ";LEFT$(pna$(i 
),1) 

6750 NEXT:IF nbfic(31 THEN 6800 >YP 
6760 FOR i=31 TO nbfic:1F na$(i)="" »KV 
THEN 6790 

6770 LOCATE 20,i-24:PRINT USING"##" >TQ 
si; :PRINT'= * 

6780 LOCATE 24,i-24:1F LEFT$(na$(i) >BT 
,1)="8"THEN PRINT HID$(nm$(1),2,15) 
ELSE PRINT na$(i);" ";LEFT$(pna$(i) 


,1) 

6790 NEIT >MD 
6800 GOSUB 1550 )IH 
6810 GOSUB 1250 )IF 
6820 r=INSTR("SC",r$) >QR 
6830 ON r GOTO 6560,6840:G0T0 6800 )AF 
6840 RETURN >GB 
7000 ?------------------- >XK 
7010 "Consulter une fiche )YA 
7020 'AHNMMENNANANMEENNES »YB 


7030 CLS:g=2:d=39:h=2:b=5:cpa=3:cte >YC 
=2:cgr=1:G0SUB 90 

7040 x=2:y=1:1F LEFT$(nm$(fic),1)=" >CC 
8"THEN dh$=MID$(na$(fic),2)ELSE dh$ 
=na$(fic)+" “tpna$(fic) 

7050 GOSUB 220:PEN 2:LOCATE 2,6:PRI >NU 
NT"Adresse :":PEN 1:LOCATE 12,6:PRI 

NT adi$(fic) 

7060 LOCATE 12,7:PRINT ad2$(fic) )ZE 
7070 LOCATE 12,8:PRINT ad3$(fic) >ZH 
7080 PEN 2:LOCATE 2,10:PRINT"Téléph >AM 
one donicile :":PEN 1:LOCATE 23,10: 
PRINT tel{$(fic) 

7090 PEN 2:LOCATE 2,11:PRINT"Téléph >AL 
one travail :":PEN 1:LOCATE 23,11: 
PRINT tel2$(fic) 

7100 PEN 2:LOCATE 2,13:PRINT'Rensei >IL 
gnesents :" 


7110 LOCATE 2,14:PRINT"-":PEN 1:LOC DFV 

ATE 4,14:PRINT reni$(fic) 

7120 PEN 2:LOCATE 2,15:PRINT®-":PEN NF 
1:LOCATE 4,15:PRINT ren2$(fic) 

7130 PEN 2:LOCATE 2,16:PRINT"-":PEN >NK 
1:LOCATE 4,16:PRINT ren3$(fic) 

7140 PEN 2:LOCATE 2,17:PRINT®-":PEN >NP 
1:LOCATE 4,17:PRINT ren4$(fic) 

7150 PEN 2:LOCATE 2,18:PRINT"-":PEN >NU 
1:LOCATE 4,18:PRINT renS$(fic) 

7160 PEN 2:LOCATE 2,19:PRINT"-":PEN >NY 
1:LOCATE 4,19:PRINT ren6$(fic) 

7170 g=3:d=38:h=22:b=24:cpa=3:cte=2 >VY 
:cgr=1:G0SUB 90 

7180 SOUND 1,71,12:LOCATE#1,1,1:PRI »>HD 

NT#1, "Voulez-vous une iapression (0 

IN) 2%;:G0SUB 1310 


7190 ON r GOTO 8030, 7200 QC 
7200 RETURN >FC 
8000 ?---------- )YA 
8010 ’Imprisante )B 
8020 '#H#N#YANAE >YC 


8030 GOSUB 180:GOSUB 1510:CHAIN"ANN >PH 
1.BAS",5030 


8500 ?------------- )YF 
8510 ’Fin de programne YYG 
8520 'HHHMMMEMNNNANNE >YH 


8530 g=7:d=34:h=4:b=22:cpa=i:cte:3: DUA 
cgr=2:G0SUB 90 

8540 PAPER#1,1:PEN#1,2:dh$="AU REVO }EX 
IR !":x=8:y=2:G0SUB 200 

8550 PEN#1,0:LOCATER1,4,5:PRINT#1," >LP 
Prograsse écrit par :" 

8560 PEN#1,3:LOCATE#1,8,7:PRINT#1," WT 

GIANETTI Marc" 

8570 PEN#1,0:LOCATE#,4,9:PRINT#1," >BB 
Téléphone :":PEN#1,3:LOCATE#1, 16,9: 

PRINT#1, "99324582" 

8580 PEN#1,0:LOCATE#1,4,11:PRINT#1, JL 

“le 27 septenbre 1989," 

8590 LOCATE#1,18,13:PRINT#1, "RENNES FC 

n 

8600 PEN#1,2:dh$="A BIENTOT !":x:8: DUE 

y=15:G0SUB 200 

8610 FOR att=1 TO 1000:NEXT >VZ 

6620 RUN"H.BAS"'ou CALL O0 ou üBASIC >FD 
pour ceux qui n'ont pas de lanceur 


9010 "pages minitel et informations >fC 


9020 PHHNMHMMMNMEUNNENNUUHNNNENENUNNEIX > VD 


9030 DIM app$(20) ,cod$(20),ser1$(20 KI 
),ser2$ (20), ser34(20), cles (20) 
9040 GOSUB 1510:CHAIN"ANN. BAS",600 >DH 


à suivre. 





LECTURE 


Henri CHAUVET 


Valable pour CPC | ii 
464, 664 et 6128 
A HAN WT RELUR Dh 


tir AN Fins 


RU UUX LT 
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Î Un 
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Ce programme est destiné 
à développer l’habileté 
perceptive de l’œil (oh, qu’en 
termes pédants, ces choses-là 
sont dites.…..). Il s’agit de 
repérer, parmi les mots qui 
apparaissent à l’écran, ceux 
qui correspondent à un 
thème donné. 


O n peut jouer seul, mais il est plus 
intéressant de jouer à deux : cet 
exercice demande alors aux enfants da- 
vantage de concentration et de sang-froid 
(attention aux doigts trop nerveux !). Les 
différentes options permettent tout de 
même à tous de jouer, même aux plus 
lents. Un signal visuel indique qui a été 
le plus rapide et si la réponse est bonne 
(signal vert) ou mauvaise (signal rouge). 
Dans le cas de bonne réponse, un signal 
sonore, différent pour les deux joueurs, 
vient s’y ajouter. 


A la fin de l’épreuve, un exercice sup- 
plémentaire attend le perdant. A-t-il eu 
une lecture efficace, à défaut d’être ra- 





CL 


| L hi h qu 
HT 
à y RUN pes sa ns ns NEA "M 


pide ? Finalement, les matches nuls sont 
nombreux et tout le monde est content. 
donc prêt à recommencer. 


Avant de proposer une autre partie, 
pour couper court à toute contestation, 
le programme indique les erreurs ainsi 
que les oublis. 


Il est possible de changer le temps 
d'affichage des mots apparaissant à 
l’écran en jouant sur la variable «durée 
à la ligne 550. 


DATALECT : Ce programme est in- 
dispensable au fonctionnement du pré- 
cédent. Il suffit de le taper pour disposer 
de 16 fichiers d’exploitation. 


CRELECT : Permet de créer ses pro- 
pres fichiers. Il faut alors veiller, en don- 
nant un nom à ceux-ci, à ce qu’ils se ter- 
minent par des nombres formant une suite 
continue. 20 fichiers, par exemple, doi- 
vent obligatoirement s’appeler LECT1, 
LECT2... LECT20. Le programme vous 
rappelle alors de modifier en conséquence 
la valeur de la variable «nbfi» (nombre 
de fichiers) à la ligne 540 du programme 
LECTURE. Le mode d’emploi est joint. 
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lecture 22° 


10 REMBHNH#HSHNEHNNEENNNENNEE >TJ 
20 REM##+# LECTURE LIL >PZ 
30 REM### Henri Chauvet ### »vQ 
40 REMAHHNNEE >TH 
50 LE 
60 GOSUB 240:’ présentation >KC 
70 LG 
80 GOSUB 440:'initialisations KG 
90 )LJ 
100 GOSUB 620:’options >QA 
110 ? >RC 


120 GOSUB 940:’ préparation exercice >QH 


130 RE 
140 GOSUB 1110:'exercice principal »XC 
150 ? RG 


160 GOSUB 1400:’résultats et exerci >1G 
ce cosplésentaire 


170 ? )RJ 
180 GOSUB 1930:'on continue ? »YG 
190 ? TA 
200 REMAN#HHHNNNENNNEENNNENX RU 
210 REM### présentation ### D 
220 REMBHHHNHNNNNMNHNENNUNEE >RY 
230 >RF 


240 MODE O:1INK 0,0:INK 1,0:INK 2,0: >JU 
BORDER 0 

250 PEN 11:LOCATE 17,25:PRINT CHR$( >LA 
164) ;"HC" 

260 ENV 1,15,-1,10 LV 
270 MOVE 100,252,2:TAG:PRINT"L 1 R DNJ 
E";:TAGOFF:PEN 1:LOCATE 4,10:PRINT 

CHR$ (22) ;CHR$(1);"L 1 R E";CHR$(22) 
;CHR$ (0) 

280 MOVE 196,189,2:TAG:PRINT"V 1! T >CK 
E ...";:TAGOFF:PEN 1:LOCATE 7,14:PR 

INT CHR$(22);CHR$(1);"V I TE. 


CHR$ (22) ;CHR$ (0) 
290 SOUND 1,200,0,15,1 >PH 
300 INK 1,11:INK 2,20 > 


310 FOR u=1 TO 1500:NEXT w:FOR i=0 >WA 
TO 4:LOCATE 1,10+i:PRINT CHR$(18):N 
EXT 

320 INK i,0:iNK 2,0 ñE 
330 HOVE 100,252,2:TAG:PRINT"H À 1! NB 
S";:TAGOFF:PEN 1:LOCATE 4, 10:PRINT 





CHR$(22) ;CHR$(1);"H À I! S";CHR#(22) 
;CHR$ (0) 

340 HOVE 196,189,2:TAG:PRINT"B I E  >BZ 
N !11";:TAGOFF:PEN 1:LOCATE 7,14:PR 

INT CHR$(22) ;CHR$(1);"B I EN !!!°; 
CHR$ (22) ;CHR$ (0) 


350 SOUND 1,100,0,15,1 >PH 
360 INK 1,11:INK 2,20 >NC 
370 FOR w=i TO 2000:NEXT u >TY 
380 RETURN >2G 
390 ? TC 
400 REMAUEUAEEENEE >VD 
410 REM### initialisations ### )YA 
420 REMY >VF 
430 >RH 
440 MODE 1:BORDER 4:INK 0,0:INK 1,1 >CF 
8:INK 2,5:INK 3,7:PAPER 0 
450 DEFINT a-z MF 
460 DIM mot$(30),501$(30),x$(30) ,a( >PK 
30) ,er$(2,30) 
470 RANDOMIZE TIME >NA 
480 1o$=CHR#(214)+CHR$(215)+CHR$(8) >FJ 
+CHR$(8)+CHR$(10)+CHR$ (213) +CHR$ (21 
2):ef$=" "+CHRS(B)+CHR$ (8) +CHR$(10 
)+ " 
490 1i9$=CHRS (24) :eac$=CHR$(22)+"A"+" DM] 
e"+CHR$(8)+"*"+CHR$ (22) +CHR$ (0) 
500 suit$=" APPUY >DG 
ER SUR UNE TOUCHE POUR CONTINUER .… 

L] 
510 pi$=CHR$(15)+"A":p3$=CHR$(15)+" >CD 


C" 


520 af$(0)=" en appuyant sur <E >MH 


SPACE) “:af$(i)=" en appuyant 

sur ‘Q' ou sur 'M' * 

530 ind$(0)="Indique ":ind$(1)="In >RN 
diquez " 

540 nbfi=16 >1G 
550 c=30:duree=300 >MHV 
560 RETURN >ZG 
570 ? )TC 
580 REMY NV 
590 REM### options ##4 >QP 
600 REME##NH#HNMENNUNEE >NH 
610 ? >RH 
620 CLS UC 


630 PEN 3:LOCATE 3,6:PRINT'" Indiquez >ZC 
votre choix avec CESPACE)":LOCATE 
8,7:PRINT"puis appuyez sur (ENTER) 

" 


640 PEN 1:LOCATE 12,13:PRINT"Vous d >AU 
ésirez jouer" 


650 a$(0)=" seul ":a$(1)="à deux" CF 
660 nbop=2:0p=0:1=18:y=15:yy=15 )&K 
670 GOSUB 2140:nb j=op > 


680 FOR i=0 TO 3:LOCATE 1,13+1:PRIN 
T CHR$(18):NEXT 

690 PEN 1:LOCATE 9,13:PRINT"Les mot 
s seront affichés" 

700 a$(0)="au centre de l'écran'":a$ 


(1)=" au hasard L 

710 nbop=2:0p=0:x=11:y=15:yy=15 

720 GOSUB 2140:plas=op 

130 FÜR i=0 T0 3:LOCATE 1,13+i:PRIN 

T CHR$(18) :NEXT 

740 PEN {:LOCATE 9,13:PRINT"Le teap 

s d'affichage sera" 

750 a$(0)="long":a$(1)="moyen":a$ (2 
)="court" 

760 nbop=3:0p=0:1x=18:y=15:yy=15 

770 GOSUB 2140:af=op 

780 IF nbj=0 THEN 870 

790 CLS 

800 PEN 1:LOCATE 1,12:PRINT"Non du 

presier joueur ? ";:PEN 2:INPUT"",n 

$:1F n$="" THEN PRINT CHR$(7) :GOTO 

800:ELSE GOSUB 2230:n$(0)=non$ 

810 PEN 1:LOCATE 1,14:PRINT"Nos du 

deuxièse joueur ? ";:PEN 2:INPUT"", 

n$:1F n$="" THEN PRINT CHR#(7) :GO0TO 
810:ELSE GOSUB 2230:n$(1)=non$ 

820 CLS 

830 PEN 1:LOCATE 13,8:PRINT"Pour ré 
pondre," 

840 z$=p3$+n$(0)+p1$+" appuiera sur 
"+p3$+"'Q'":LOCATE 23-LEN(z$)/2, 12 
:PRINT z$ 

850 z$=n$(1)+p1$+" appuiera sur "+p 

3$+*’H'":LOCATE 22-LEN(z$)/2,14:PR] 

NT z$ 

860 GOSUB 2080 

870 CLS:PEN 3:LOCATE 4,12:PRINT"Pat 

ience, je prépare l'exercice..." 

880 RETURN 

890 , 

900 REMAX#HHRENNNENNENNNENEUNEEE 


810 REM### préparation exercice ### 
920 REMHHNNHHNNENNNENNNNEENNEEUNNEEX 


930 

940 f=INT(RNDaænbfi)+1:1F f=ff THEN 
940 ELSE ff=f 

950 f$="lect"+HID$(STR#(f),2) 

960 OPENIN f$ 

970 INPUT#9, con$ 

980 FOR i=1 TO 30:INPUT#9, x$(i):NEX 
T 


> 


>TG 


)TL 
)LJ 
LV 
>EP 


990 CLOSEIN >FK 
1000 FOR i=1 TO 30 >HH 
1010 h=INT(RNDtc)+1 >NH 
1020 mot$=x$(h):r$Ch)=x$(c):c=c-1  >AM 


1030 so1$(1)=RIGHT$(mot$,1):mot$(i) 
=HID$(mot$,1,LEN(aot$)-1) 


>HD 


1040 NEIT KG 
1050 RETURN >EK 
1060 >K 
1070 REMAH#HNNRNMNNENNUEEE DUV 
1080 REN### exercice principal +## )BJ 
1090 REMY HN NNNENNNRENNENNUNEX DUX 
1100 )IE 
1110 CLS >2C 
1120 j1=0: j2=0:er1=0:er2=0:oub=0 >AF 


1130 PEN 1:LOCATE 4,1:PRINT i$+SPAC 
ES$(INT(24-LEN(com$))/2)+ind#(nbj)+c 
on$iSPACES((25-LEN(con$ ) )/2)+i$:LOC 
ATE 4,2:PRINT 1$+af$(nbj)+19 

1140 GOSUB 2080:LOCATE 1,25:PRINT C 
HR$(18); 

1150 FOR i=1 TO 20 

1160 at=duree/(af+1) 

1170 IF plas=0 THEN 1=20-LEN(sot$)/ 
2:y=12:ELSE x=INT(RND#(38-LEN(sot$( 
1)))+2) :y=INT(RND423) +3 


BV 


>)LJ 


)LC 
>PX 
>FF 


1180 LOCATE x,y:PRINT sot$(i); )ZL 
1190 flag=0 WF 
1200 WHILE at)>0 BF 
1210 at=at-1 >DC 


1220 k$=UPPER$S(INKEY$): IF (nbj=0 AN >ZC 
D k$CCHR#(32)) OR (nbj=i AND(kK#$O" 
Q" AND k$C>"M")) THEN 1290 

1230 IF k$="Q" THEN 1240 ELSE 1260 
1240 IF sol$(i)="v" THEN flag=1: j1= 
j1+1:SOUND 1,50,5:PEN 1:ELSE eri=er 
1ti:er$(1,eri)=mot$(i):PEN 3 

1250 LOCATE 2,1:PRINT lo$:GOTO 1280 


NY] 
>KF 


CU 


1260 IF sol$(i)="v" THEN flag=1: j2= 
ÿ2+1:SOUND 1,400:PEN 1:ELSE er2=er2 
ti:er$(2,er2)=mot$(i):PEN 3 

1270 LOCATE 38,1:PRINT lo$ >UH 
1280 at=5#at:WHILE at)0:at=at-1:VEN DRU 
D:LOCATE 2,1:PRINT ef$:LOCATE 38,1: 
PRINT ef$:PEN 1 

1290 WEND »JG 
1300 IF flag-0 AND sol$(i)="v" THEN >KQ 
oub=oub+1:oub$(oub)=mot$(i) 

1310 LOCATE x,y:PRINT SPACES(LEN(mO >LA 
t#(i))) 

1320 CLEAR INPUT 


HZ 


)LJ 





1330 NEXT i 

1340 RETURN 

1350 ? 

1360 REMY 
CETTE CETENTESEPTE 

1370 REM### résultats et exercice c 
omplésentaire ##4 

1380 REMA HF MANEHNMENNREN 
CECITEPTETEECEEEE 

1390 ? 

1400 CLS 

1410 IF nbj=0 THEN 1580 

1420 IF j{-er1>j2-er2 THEN ga$=n$ (0 
):per$=n$(1):jga=ji:erga=eri: jper=j 
2:erper=er2:ELSE ga$=n$(1):per$=n$( 
0):jga=j2:erga=er2: jper=ji:erper=er 
Î 

1430 IF jga>i THEN jgat="bonnes rép 
onses" ELSE jga$="bonne réponse" 
1440 IF jper>1 THEN jper$="bonnes r 
éponses" ELSE jper$="bonne réponse" 


1450 IF erga>1i THEN pgat="erreurs." 
ELSE pga$="erreur." 
1460 IF erper>i THEN pper$="erreurs 
." ELSE pper$="erreur." 
1470 IF ji-er1(>j2-er2 THEN 1540 
1480 LOCATE 1,4:PRINT n$(0);" a"ser 
1;"erreur";:1F er1>1 THEN PRINT"s" 
1490 LOCATE LEN(n$(0)),5:PRINT" et" 
5)1;:1F 1131 THEN PRINT"bonnes répo 
nses." ELSE PRiNT"bonne réponse." 
1500 PRINT:PRINT n$(1);" a"ser2;"er 
reur";:1[F er2>1 THEN PRINT'"s" 
1510 LOCATE LEN(n$(1)),8:PRINT" et" 
532;:1F j2>1 THEN PRINT'"bonnes répo 
nses." ELSE PRINT'bonne réponse." 
1520 PEN 3:PRINT:PRINT:PRINT" 

Vous “:eac$;"tes donc à égalité." 


1530 GOSUB 2080:CLS:G0T0 1820 

1540 PEN 2:LOCATE 13,1:PRINT"Pour 1 
e nosent,":PRINT:PRINT 

1550 IF ga$Q"" THEN LOCATE 17-LEN( 
ga$)/2,4:PRINT ga$;" gagne":PEN 3:P 
RINT" avec"; jga; jgat;" et";erga;pg 
a$:PEN 2:LOCATE 18-LEN(per$)/2,8:PR 
INT per$;" perd":PEN 3:PRINT" avec 
“siper: jper$:" et":erper;pper$ 

1560 PEN 1:LOCATE 20-LEN(per$)/2,15 
:PRINT per$:PRINT" va avoir une qu 
estion de rattrapage.":LOCATE 18-LE 
NCper$)/2,18:PRINT "Si ";per$:PRIN 
T" répond à cette question," 
:PRINT" il y aura satch nu 


NC 


> 
DAY 


VV 


AU 


1.":G0SUB 2080:CLS 

1570 PEN 3:1F per$<>"" THEN LOCATE 
20-LEN(per$)/2,1:PRINT per$;"," 
1580 IF per$()>"" THEN PRINT" t";:EL 
SE PRINT" T'; 

1590 PRINT'u viens de lire une list 
e de 20 nots.":LOCATE B,4:PRINT"Un 
des 4 nots ci-dessous" :LOCATE 8,5:P 
RINT'"n'en faisait pas partie." 

1600 PEN 1:LOCATE 5,10:PRINT"Indiqu 
e son numéro (1-2-3 ou 4)":PEN 2 
1610 i=INT(RND#10)+21:x$(1)=mot$(i) 
sbonrep$=sot$(i) 

1620 i=INT(RND#9)+1:FOR j=0 TO 2:x$ 
(i+2)=not$(1+)#4) :NEXT 

1630 n=4:c=0 


1640 WHILE n(>0 

1650 h=INT(RND#n)+1 

1660 c=ct1:q$(c)=x$(h):x$(h)=x$(n) 
1670 n=n-1 

1680 WEND 

1690 FOR i=1 TO 4:LOCATE 13,13+i:PR 
INT 5" ";q$(i):NEXT 


1700 k$=INKEYS:IF k$="" OR INSTR(®"1 
234",k$)=0 THEN 1700 ELSE k=VAL(k$) 


1710 PEN 2:1F q$(k)=bonrep$ THEN LO 

CATE 14,20:PRINT"REPONSE EXACTE":1F 
nbj=1 THEN PEN 3:LOCATE 11,22:PRIN 

Ti$;$"HATCH NUL ";i$:G0T0 
1730:ELSE 1730 

1720 PEN 1:LOCATE 10,20:PRINT"Non, 

c'était ";:PEN 2:PRINT bonrep$: :PEN 
1:PRINT".":1F nbj=1 THEN PEN 3:L0C 

ATE 12-LEN(ga$)/2,22:PRINT 1$:" ":g 

a$;" est vainqueur. ":i$ 

1730 GOSUB 2080:CLS 

1740 PRINT"Au cours du er exercice 


s” 

1750 IF nbj=1 THEN 1810 

1760 PRINT'"tu devais":PRINT" indique 
r ";con$;"." 


TG 


LL d 


AJ 


1770 iF er2=0 AND oub= THEN PRINT: >ÿH 


PRINT:PRINT"  ...tu avais tout tro 
uvé, BRAVO !!!":GO0T0 1860 

1780 PEN 3:1F er2(>0 THEN PRINT:PRI 
NT"Tu avais indiqué par erreur :":P 
EN 2:FO0R i=1 TO er2:PRINT er$(2,i): 
NEXT 

1790 PEN 3:1F oub<(>0 THEN PRINT:PRI 
NT"Tu avais oublié :":PEN 2:FOR i=1 
TO oub:PRINT oub$(i):NEXT 

1800 GOTO 1860 

1810 PRINT"vous deviez":PRINT'"indiq 
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uer ":com$;"." 

1820 IF eri=0 AND er2=0 AND oub=0 T 
HEN PRINT:PRINT:PRINT"  ...Vous av 
iez tout trouvé, BRAVO !!!":G0T0 18 
60 

1830 PEN 3:PRINT:PRINT n$(0);:1F er 
1=0 THEN PRINT" n'avait pas fait d' 

erreurs." ELSE PRINT" avait indiqué 
par erreur :":PEN 2:FO0R i=i TO eri 
:PRINT er$(1,i):NEXT 

1840 PEN 3:PRINT:PRINT n$(1);:1F er 

2=0 THEN PRINT" n'avait pas fait d’ 
erreurs." ELSE PRINT" avait indiqué 
par erreur :":PEN 2:FOR i=1 TO er2 
:PRINT er$(2,i):NEXT 

1850 PEN 3:1F oub<>0 THEN PRINT:PRI 
NT"Vous aviez oublié :":PEN 2:FOR i 
={ TO oub:PRINT oub$(i):NEXT 

1860 GOSUB 2080 

1870 RETURN 

1880 ? 

1890 REMY NMRHNNNNNNEENNEE 

1900 REM### on continue ? ##4 

1910 REMAXHXHY#S#NMENNNMENNNSENNS 

1920 ? 

1930 FOR u=1 TO 1000:NEXT 

1840 CLS 

1950 PEN 2:LOCATE 1,9:PRINT'"Une aut 
re partie (O/N) ? ";:PEN 1:PRINT" " 
;CHR$ (8) ; 

1960 k$=UPPERS(INKEYS):[F k$="" OR 
INSTR("ON",k$)=0 THEN 1960 

1970 IF k$="0" THEN PRINT'OUI":FOR 

w=i TO 1000:NEXT:CLEAR:G0TO 80 

1980 IF k$="N" THEN PRINT'NON":FOR 

w=1 TO 1000:NEXT 

1990 HODE O:1NK 1,11,16:1INK 2,16,11 
PEN 2:LOCATE 5,11:PRINT'"Au revoir" 
:PEN 1:FOR u=1 TO 3000:NET: MODE 1: 

CALL &BCO2 

2000 END 

2010 ? 

2020 REMA#HNNNUNENNNRRNUNEENUNUEE 

### 

2030 REM### sous-prograsses divers 

PTE 

2040 REMHNHHHHNMNENNENNNNENNNENNNEEX 

#4 

2050 

2060 REM### attente pour suite 

2070 ? 

2080 PAPER 2:PEN O:LOCATE 1,25:PRIN 
T'HRREEHHHET: LOCATE 32,25 :PRINT"##4 

#####4°;:PAPER O:PEN 1 

2080 CLEAR INPUT:FOR i=1 TO LEN(sui 


>LL 


V 


UH 





t#)-22:LOCATE 10,25:PRINT HID$(auit 
$,1,22):FOR w=1 TO SO:NEXT:IF INKEY 
$="" THEN NEXT i:GO0TO 2090 


2100 RETURN >EG 
2110 )1G 
2120 REM### choix options >UH 
2130 1] 
2140 PEN 2 >FH 


2150 LOCATE x,y:PRINT i$;a$(0);1$:F >EW 
OR 1=1 TO nbop-1:LOCATE x,y+i:PRINT 
a$(i):NEXT:CLEAR INPUT 

2160 k$=INKEYS:1F k$="" THEN 2160  >ZA 
2170 IF k$=CHR$(32) THEN LOCATE x,y >CZ 
y:PRINT a$(op):op=(op+1)M0D nbop:yy 
=yt+op:LOCATE x,yy:PRINT i$;a$(op);i 

$ 

2180 IF k$=CHR$(13) THEN 2190 ELSE DV 


2160 

2190 RETURN >FF 
2200 " >1G 
2210 REM### traitement du nom des j >KM 
oueurs 

2220 ! Del 
2230 non$="" »ÿB 
2240 n$=LOWER$(n$) >Mu 
2250 FOR i=1 TO LEN(n#) QG 


2260 IF i=1 OR maj=i THEN saj=0:MID >YL 

$Cn$,i,1)=UPPERS(MID$(n$,i,1)):1F M 

ID$(n$,i,1)="6" THEN HID$(n$,i,1)=" 

E" 

2270 IF MID$(n$,i,1)="-" OR MID$(n$ >VZ 
51,1)=" * THEN naj=l 


2280 non$=non$+HID$(n$, i,1) >VH 
2290 NEXT )LE 
2300 RETURN )EJ 


datalect == 


10 REMAN#HNNERNNNNNNEENNEENNEENNE VE 


20 REHM##+ DATALECT #44 )QK 


30 REM### 16 fichiers préparés ### )CK 


40 REN#+#+ pour LECTURE ### DVD 


REM##4 Henri Chauvet ### DUB 


60 REMX##HRENMEERNNERHNNNNNNE )YG 


70 )LG 
80 DIN con$(16),1$(16,31) RF 
90 FOR i:1 TO 16 )XG 


100 READ com$(i) EF 
110 FOR 1=1 TO 31 )BJ 
120 READ x9(1,j) >DA 
130 NEXT }; >ND 


140 IF x$(1,j-1)C>"x" THEN 11=290+4 >LN 
O#(1-1):PRINT CHR$(7):PRINT'Erreur 

dans les DATAs lignes"li"à"]i+20:EN 

D 

150 NEXT 1 )NE 
160 HODE O:LOCATE 4,7:PRINT"ENREGIS )XE 
TREHENT":LOCATE 4,9:PRINT"fichier n 
uséro":PEN 2 


170 FOR i=1 TO 16 >CG 
180 LOCATE 9,11:PRINT 1! >RP 
190 OPENOUT "lect"+MID$(STR$(1),2) >DY 
200 WRITE#9,con$ (1) >NH 


210 FOR 1=1 TO 30 BJ 
220 IF j<9 THEN «$(i,j)=$(i, j)t"v" DZ 
ELSE u$(1,4)=x9(1,4)+"f" 


230 WRITE#9,x$(i, j) NT 
240 NEXT j >NF 
250 CLOSEOUT >RH 
260 NEXT i >NG 
270 CLS:PEN 15:LOCATE 5,12:PRINT"- NH 
terminé -":PEN i:LOCATE {,24 

280 ! )TA 
290 DATA les noms d'anisaux ME 


300 DATA chat, gazelle,écureuil,chev >2ZV 
al, taureau, girafe, tourterelle, loup, 
maison, parfus, ouvrier, traineau, feui 
lle,clavier,table 

310 DATA lettres,arbrisseau, crayon, 
craie,soleil,filet,fila,actrice, cha 
ise,télévision,rigolo, protéger ,cana 
pé, jardinier, surprise, x 

320 ? >RF 
330 DATA les nons d'animaux >HZ 
340 DATA éléphant, brochet, phoque, gu >KR 
épard, sanglier, chevreuil, corbeau, se 
rpent, courant, canon, chèvrefeuille,p 
atte,sanglot, transporteur, broche 
350 DATA fantastique, pharaon, photo, 
départ, ornesent, cordeau, couverture, 
pratique, branchage, pianiste, tornade 
magnifique, parents, vitrage,oublier 


>VZ 


1 
360 ? >RK 
370 DATA les noms d'oiseaux >HD 


380 DATA nésange, épervier,cigogne,p >DZ 
le,rouge-gorge, vautour,roitelet,mer 
le,casion, borgne, lunette, coupe-gorg 
e,pied,perle,chaton 

390 DATA cinésa, désangeaison, codage >QZ 
,classesent, déjeuner, f locon,terrass 





14 


e,soucheron, parachute, caleçon, désin 
fecter, jasbon, parfus, bouton, stylo, x 


400 ? RE 
410 DATA les noms de poissons )YY 
420 DATA gardon, requin, carpe, sardin >MQ 
e,saquereau, sauson,s0ole,sorue,tortu 
e,tarte, pardon, échasse, portier, guép 
ard,collier 

430 DATA auraille,cousin,adairation >HJ 
,boulon, coquille, bandeau, laspion, s0 
urdine,siroir,cravate, tourtisseau, g 
renadine,raisin, tondeuse, tisbale, x 
440 ? 

450 DATA ce qui a une forse ronde 


)RJ 
AN 


‘460 DATA disque, soleil ,anneau, cerce >DY 


au,bracelet,assiette, roue, soucoupe, 
terrasse, disponible, parents,acteur, 
histoire, construire, fourchette 

470 DATA carré, sosseil, année, boue, v >GF 
edette, forain, drapeau, discuter, briq 
uet, également, départ, inagination, sa 


lon, soudure, chemin, x 
480 ? )TC 
490 DATA les nons de pays )TG 


500 DATA ITALIE, ALLEMAGNE, ALGERIE, A DCR 
RGENTINE, BELGIQUE, IRAN, GRECE, BRESIL 

» BEURRE, ANGLE, ROUSS IE, RATON, HONTAGN 

E, EPARGNE, TOURMENTE 

510 DATA TROUBLER, CUISSE,HINUTIE, AN DCC 
ITIE, CLEMENTINE, CHARHILLE, BROUTILLE 

» CANAPE, ENNEMI , ENVIE, USINE, BOULANGE 
RIE, CAMOMILLE, VITRINE, MUSCLE, x 


520 ? >RH 
530 DATA les noss d'arbres >HB 
540 DATA peuplier,possier, sapin,pal >2E 


sier,bouieau,platane,pin,prunier,di 
sposer barreau, croquer ,sénage,affic 
he,niveau, capable 

550 DATA résultat, planche, peupler,p >QX 
ossade, cerise,satin, plusier ,boulon, 
palier,niche, liste, peuplade, sable, h 


iver,partie,x 

560 ? TB 
570 DATA les parties du corps )YL 
580 DATA ventre,pied,cheville,bras, )CL 


ongle, dos,auscle,orteil, feuillage, o 
ncle, cour, tendre, oublier, charaant, c 
ouperet 

590 DATA piéton, carreau, autruche, go >DM 
sse, buisson, ciseaux, anti lope, soteur 
,besoin, particulier,conseiller,cosa 
ande,hélice,atose, commandant, x 

600 , 


610 DATA les parties du corps )YF 





620 DATA cheville, genou, épaule, pouc )JB 
e,doigt, coude, gorge, sain, garnesent, 
carpette, lisande, landau,ninute,cise 
aux, souche 

630 DATA matin,couple, pousser, droit >ZX 
ler,épaulard, chenille, tasse,avion,p 
lancher, saison, artichaut, correct, po 
intu,croix,tube,x 

640 ? )TA 
650 DATA les parties du visage »YD 
660 DATA joue, oeil, lèvre,cheveu,nez )CB 
ssoustache,senton, bouche, chalet, bal 
lon, tremplin, régulier, longueur,astr 
e,fond 

670 DATA livre,sarine,souci,touche, >DD 
ciel, jouet ,orteil,flan,statue,agraf 
e,fila,escabeau, sandoline, bouchon, t 


errain,x 
680 ? )TE 
690 DATA les nons d’habits )NA 


700 DATA chenise, jupe, chaussette, gi >DV 
let,blouson,saillot, manteau, short, c 
assette, souple,saillon, caprice, légi 

on, cordage, escargot 

710 DATA pantelant, danse, cygne,rest )ZB 
e,vase,écrevigse, folie,violette, gui 
don, fertile,tester, sucré, jasbonneau 


,basbou, chagrin, x 
720 ? >RK 
730 DATA les nos de fleurs VE 


740 DATA dahlia, géranius, suguet,oei >WF 
Llet, tulipe, lys, pensée, chrysanthèse 
pauvre, remonter,perle,balcon, sujet 
,variété,rosse 

750 DATA argent, odeur,potier,maladi DNT 
e,voisinage, parfait, couronne, agréab 
le,horizon, paroi, terrassier, violet, 
sosent,espèce, fleurir,x 

760 ? >TD 
770 DATA les noss de fleurs )WA 
780 DATA prisevère, jonquille,lilas, >QB 
mrçguerite,rose,coquelicot,ayosotis 
Violette, carain, surface, massif ,tap 

is, infester,globe,actuel 

790 DATA grouper, culture,paille,sen >ZZ 
sible,printesps,curieux,huside,aigu 
ille,calcaire, fond, température, sous 
traire, game, aotte,arroser, x 

800 ! )RJ 
810 DATA les prénoas )0D 
820 DATA JACQUELINE, PHILIPPE, BERNAD >WN 
ETTE, DIDIER, VINCENT, JOSEPH, MONIQUE, 
CHRISTIANE, AHANDE, ORCHESTRE, PASTORA 

LE, POURTANT, CHRET IENNE, ARCHIVES, COP 


INE 

830 DATA SOUBRETTE, BOMBARDE, BASILIQ DAV 
UE, FOURHI , POURCENTAGE, BANANE, BRUNIR 

» CAPELINE, PHILOSOPHE, FRANCAIS, BOUT 1 
QUE, OREILLONS, MENUET, BIQUETTE, BRETE 


LLE, x 
840 ? )TC 
850 DATA les nons de métiers >XH 


860 DATA docteur,boulangère,comserç >DP 
ant,senuisier,sécanicien, secrétaire 
maçon, couturière, douleur ,ausique, c 
haleur,soteur,balançoire, étagère, sé 
vère 

870 DATA douceur, poissonneux, jardin >MD 
er,sotoculteur,chantier, formidable, 
entourer, vendre, tasbour, peluche, bro 
uillon, plaquette, écouteur, cendrier, 
torsade, x 

880 ? )TG 
890 DATA les instru. de ausique )BB 
900 DATA trompette,violon, guitare,h >VV 
arsonica, piano,banjo, saxophone, clar 
inette, océanique, couverture, scaphan 
dre,couleuvre, boulevard, harmonie, og 

re 

910 DATA arnica, trosblon, rouleau,ag >LG 
rafe,pantin,rectangle,calendrier, ti 
sbre,ravin,colosbe, téléphone, décour 
agé, cactus, tuyauterie, charrette, x 


crelect ==> 


10 REMAHHHNNEHNNERNNREENNEENNENNE DVD 
20 REMx#: CRELECT #4 >PX 


30 REM### création de fichiers ### )BB 


40 REM### pour LECTURE #4 DVZ 
50 REMs#+ Henri Chauvet ### DVU 
60 REMY#HHNH#HHNNNNNMNENNNEENNENNEE > YG 
70 ! >LG 
80 REM##+# node d'emploi #44 )BJ 
90 >LJ 
100 MODE 1 >GK 
110 SYMBOL AFTER 91:SYMBOL 91,24,36 >DVG 


,60, 102, 126,96, 60 

120 PEN 1:LOCATE 1,12:PRINT"Voulez- >MF 
vous le node d'enploi (0/N) ? "::PE 

N 2:PRINT" ":CHR$ (8): 

130 k$=UPPERS(INKEYS):1F k$="" OR | >CZ 
NSTR("ON",k$)=0 THEN 130 
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140 IF k$="N" THEN PRINT'NON":FOR a >DA 
t=1 TO 5S00:NEXT:GOTO 300 


150 PRINT"OUI":FOR at=1 TO SOO:NEXT )DZ 
160 CLS:PEN 1:LOCATE 7,6:PRINT"Ce p )EE 


rograsse permet de créer":PRINT"des 
fichiers utilisables par LECTURE’ 
L] 
170 PRINT:PRINT:PRINT" Vous devrez )JV 
d'abord indiquer un thème:":PRINT" 
les nos d'anisaux, les métiers. 
Li 
180 PRINT:PRINT:PRINT"Vous avez dro )TY 
it à 24 lettres au saxiaus.";:PRINT 
“ Un astérisque indiquera cette lin 
ite." 
190 PEN 2:LOCATE 10,25:PRINT"Appuye TN 
z sur une touche":CLEAR INPUT:CALL 
&BB06:CLS 
200 PEN 1:LOCATE 5,6:PRINT"Vous ent >ZW 
rerez ensuite 30 mots :":LOCATE 9,1 
0:PRINT"les 8 preniers doivent";" o 
bligatoiresent correspondre au thèa 
e (‘tre des nons d’anisaux, de aét 
lers...)" 
210 LOCATE 9,14:PRINT'"les 22 autres )FC 
doivent":PRINT'obligatoiresent ‘tr 
e étrangers au thèse." 
220 PEN 2:LOCATE 10,25:PRINT"Appuye )TG 
z sur une touche":CLEAR INPUT:CALL 
&BB06:CLS 
230 PEN {:LOCATE 1,2:PRINT"Le progr >BN 
anse ajoute";" un ‘v' aux 8 pr 
eniers (vrais)";" un 'f’ aux 2 
2 autres (faux)." 
240 LOCATE 7,6:PRINT"Les 30 mots qu >RC 
e vous proposez vous"; "seront prése 
ntés sous cette forme pourvérific 
ation et si nécessaire correction" 
250 LOCATE 7,11:PRINT"Si vous ‘tes >BY 
satisfait, donnez un'";"nuséro au f 
ichier :":PRINT"{ pour le presier, 
2 pour le deuxièse...":PRINT:PRINT" 
Le fichier sera alors enreg 
istrésous le nos de LECTI, LECT2... 
" 
260 PEN 2:LOCATE 10,25:PRINT"Appuye >TG 
z sur une touche":CLEAR INPUT:CALL 
&BB06 : RUN 


270 ? >RK 
280 REM## saisie du fichier ## )XV 
290 >TB 
300 HODE 1 >HB 
310 DIH not$(30),x(30),y(30) )W 


320 WINDOW#1,1,40,1,3:WINDOWE2, 1, 40 DFE 
,4,19:WINDOW83, 1, 40, 20, 25 





330 CLS#1:PRINT#1, "Thème ->";SPACES >BK 
(25) ;"#":LOCATE# 1, 10, 1: INPUT#1,"",c 

ouf 

340 IF con$="" OR LEN(conm$)>24 THEN DAV 
PRINT CHR$(7):G0T0 330 

350 FOR i=i TO 30 )CC 
360 PEN#2,2:PRINT#2, i: )RB 

370 PEN#2,1:INPUT#2,"",not$(i):1F m >WD 
ot$(i)="" THEN 370 

380 IF 19 THEN sot$(i)=nmot$(i)+"v" )EV 
ELSE sot$(i)=mot$(i)t"f" 


390 NEXT EH 
400 FOR at=1 TO SSO:NEIT at >UB 
40 ? >RF 


420 REM## correction des erreurs ## >DR 
430 RH 
440 CLS#2 EE 
450 FOR 1=1 TO 8:PEN #2,1:PRINT#2,i >CH 
snot$(i);CHR$(8) ; :PENE2,2:PRINT#2,R 
IGHT$(mot$(i),1):NEXT 

460 FOR i=9 TO {5:PEN#2,1:PRINT#2,i >DH 
;not$(i);CHR$(8) ; :PEN#2, 3:PRINT#2,R 
IGHT$(mot$(i),1):NEXT 

470 FOR 1-16 TO 30:PEN#2, 1:LOCATE#2 DJF 
,20,i-15:PRINT#2, ismot$(i) ;CHR$(8); 
:PEN#2,3:PRINT#2,RIGHT$(mot$(i),1): 
NEXT 

480 CLEAR INPUT:CLS43 >RC 
490 PEN#3, 1:PRINT#3,"Y a-t-il une e DNT 
rreur (0/N) ";:PEN#3,2:PRINT#3," "; 
CHR$ (8) ; 

500 k$=UPPERSCINKEYS):IF k$="" OR | >CB 
NSTR("ON",k$)=0 THEN 500 

510 IF k$="N" THEN PRINT83,"NON":F0 >KX 
R at=1 TO SOO0:NEXT at:G0T0 680 

520 PRINT#3,"QUI":FOR at=1 TO 100:N DJE 


KZ 
AN 









Ci Pour les étrangers le r 
. VRennes. 


F; AMSTAR 
CPC 


EXT at 

530 LOCATE#3, 1,2:PEN#3, 1:PRINT#3,"Q >GP 
uel numéro (0 pour le titre) ";:PEN 
43,2: INPUT#3,"",n$ 

540 n=VAL(n$):1F n=0 AND n$<>"0" TH DAR 
EN PRINT#3,CHR$ (7) :LOCATE#3, 1,2:PRI 
NT#3,CHR$(18) :GOTO 530 

550 IF n>0 THEN 590 >LG 
560 CLS#1:PRINT#1, "Thème -> " )2V 
570 PEN#3, 1:LOCATE#3, 34, 4:PRINT#3," DEL 
#":LOCATE#3, 1, 4: INPUT#3, "Thèse -» * 
,Con$ 

580 IF con$="" OR LEN(com$))24 THEN DXL 
PRINT#3,CHR$ (7) : LOCATE#3, 1,4: PRINT 
#3,CHR#(18):GO0T0 570:ELSE LOCATE#1, 
10,1:PRINT#{,conm$:GOTO 480 

590 IF n<Ci6 THEN x=i:y=n:ELSE x=20: 
y=n-15 

600 PEN#2, 1:LOCATE#2, x, y:PRINT#2, n; 
SPACES (LEN(mot$(n))) 

610 CLS#3:PEN83, 1:PRINT#3, "Ecrivez 
le nouveau not (sans ‘v’ ou ’f’ fin 
al)" :PRINT#3:PRINT#3, n; : INPUT#3, not 
$(n) 

620 IF n<9 THEN not$(n)=mot$(n)+"v" DFK 
ELSE not$(n)=sot$(n)+"f" 

630 PEN#2,1:LOCATE#2, x,y:PRINT#2,n; 
not$(n) ;CHR$ (8); 

640 IF n<9 THEN PEN#2,2 ELSE PEN#?, 
3 


650 PRINT#2,RIGHT$(mot$(n),1) NYT 
660 GOTO 480 )AA 
670 >TD 


680 REM#*# enregistrement du fichier >GW 
H 


690 


700 HODE 2:PEN 1:CAT >NR 

710 WINDOW#1,1,80,20,25 )RL 

720 PEN#1,1:INPUT#1, "Fichier numéro >TN 
: 1,118 

730 IF VAL(fi$)=0 THEN CLS#1:G0T0 7 >DB 

20 

740 fi$="LECT"+fi$ >HC 

750 PRINT#1:PRINT#1,CHR$(24);" J'en >NX 

registre ";fi$;" ";:CHR$(24) 

760 OPENOUT fi$ DHE 

770 WRITE#9, con$ >LH 

780 FOR 1=1 TO 30:WRITE#9,not$(1):N >GL 

EXT 

790 CLOSEOUT TG 

800 CLS#1:PRINT#1,"TERMINE":PRINT#{ >QJ 


, 

810 ! >RK 
820 REM### quite ##4 >NG 
830 ’ )TB 


840 LOCATE#1,1,4:PRINT#1, "Un autre )DQJ 
fichier (O/N) ? ";CHR$(B); 

650 k$=UPPERS$(INKEYS):IF k$="" OR L DCT 
NSTR("ON",k$)=0 THEN 840 

860 IF k$="O" THEN PRINT#{,"OUI":FO0 >BK 
R at=1 TO S00:NEXT:RUN 

870 PRINT#1, "NON" :FOR at=1 TO 500:N DNK 
EXT:HODE 1 

880 PRINT" Il faut maintenant ch DKT 
anger la valeurde la variable ‘nbfi 

" à la ligne 540 dufichier "LECTUR 
E'." 

890 PRINT:PRINT'Pour cela :":PEN 2: >YC 
PRINT"- charger "LECTURE'":PRINT"- 
taper : 540 nbfi=";MID$(STR$(nbfi), 
2):PRINT"- sauvegarder le nouveau 
LECTURE’ ":PEN 1:PRINT:PRINT:PRINT 
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Luc & Hervé GUILLAUME 


Valable pour CPC 
464, 664 et6128 





Vous incarnez un célèbre 
écumeur des mers chaudes se 
nommant Bourgabarbe. Vous 
venez de prendre d'assaut un 
navire dans lequel se trouvent 
7 coffres de pièces d'or. Il vous 

faudra dans un premier temps 

récupérer ces fameux coffres 
et dans un second temps les 

transporter dans votre repère. 


} 


| 





JEU 


. Lis. 


PIRATE 


A près le chargement, l'utilisateur 

pour commencer la partie, pourra 
sélectionner soit le clavier (touches direc- 
tionnelles + barre) en appuyant sur la barre 
ou soit le joystick en appuyant sur le fire. 
La pause s'obtient en appuyant sur RE- 
TURN. Pour finir, l'abandon s'effectue 
en pressant la touche ESC. 


Les programmes DATASI et 
DATAS?2 doivent être tapés et sauvés puis 
lancés par un RUN afin de sauvegarder 
PIRATEL.BIN et PIRATEZ.BIN. Pour 
lancer le jeu, faire RUN"PIRATE". 


PLFHILE 


pirate-bas 


10 
CETE 
20 
#1 
30 
#4 
40 
#1 
50 
# 
60 
# 
10 
#4 
80 
CÉFEI 
90 


CETÉTFEFFSIETISS TETE TETE 
+ 

H+ PIRATE 

# 

## Luc and Herve Guillause 


## Black System 1990 
#+ 


LEP EEE ESS SSI SEE IS SS ESS E TS S SE 


100 MEHORY 19999 

110 LOAD"!PIRATEI.BIN", 20000 
120 LOAD"!PIRATEZ.BIN", 30000 
130 CALL 30000 


datas] 


10 


20 * DATAS pour PIRATE1.BIN 


30 ’ 


40 MODE 2:AD=8C000:NL=110 





>LA 
>LB 
>LC 
LD 
LE 
)LF 
>LG 
LH 
>LJ 
>LT 
DL) 


)WZ 
>HH 


50 FOR B=1 TO 258:TOT-0:FOR 7-0 TO 14 
:READ A$ 

60 POKE AD, VAL("L®+A$) :TOT=TOT+PEEK (A 
D) :AD=AD#1 

70 NEXT:READ SOMS:1F VAL("&"+50H$) OT 
OT THEN 90 

80 NL=NL+10:NEXT:SAVE"PIRATEL.BIN",B, 
&C000, LF1B:CLS:END 

90 CLS:LOCATE 1, 1:PRINT'LIGNE" ;NL; "IN 
CORRECTE" : END 

100 ? 

110 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00,00, 00, 00, 00, 000 

120 DATA 00,00, 00, 00, 00, 00, 00, 00, 54,0 
0,50,00,05,00,55,0FB 

130 DATA 00,00,51,00,51, 00, 50, 00,05, 0 
0,00,00,05, 00,55, 151 

140 DATA 00,00, 00,00, 00, F1, A2, A2, A2, À 
0, A0, OA, OA, OF, OA, 444 

150 DATA FF, AA, 00,00, 00, 00,51, 00, F2, 0 
0,50,00,05,00, 0F, 350 

160 DATA OA,FF, AA, 00, 00, 00, 00, F3, A2, 0 
0, A2, F0, A0, 04, 00,584 

170 DATA OF,OA,FF, AA, 00,00, 00,00, F3, A 
2,00, 2, 50, AO, 00, 4E9 

180 DATA OA, OF, 0A,FF, AA, 00,00, 00, 00, À 
2,00, 2, A2, AO, AO, 4F2 

190 DATA FO, A0, 00, 0A, 00, AA, 00, 00, 00, 0 
0,F3,A2, 0,00, F1, 56A 

200 DATA 42,00, A0, 0F,0A, FF, AA, 00,00, 0 
0,00, F3, A2, A2, 00, 53B 

210 DATA F1,A2, AO, AO,0F, OA, FF, AA, 00, 0 
0,00, 00,54, A2, 00,591 

220 DATA 42,00, A0, 00, 0A, 00, OA, 00, AA, 0 
0,00,00,00,F1, A2, 303 

230 DATA AO, A2, A, AO, OA, OA, OF, OA, FF, À 
A,00,00, 00, 00, F1,503 

240 DATA A2, A0, A2, SA, A0, 00, OA, OF, OA, F 
F, AA,00,00, 00, 00, AA 

250 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0, 00,00, 00, 00, 00, 000 

260 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 000 

270 DATA 00,00, 00, OA, 05, AO, SA, A2, AF, À 
0,55,04, 00, A4, 00, 403 

280 DATA 00,00, 00, 00, 0A, 05, AO, 5A, A2, À 
F,A0,55, A, 00, AA, 403 

290 DATA 00,00, 00, 00, 0A, 00, A5, 00, F2, 0 
A, A5, AA,5F, 00, AA, 403 

300 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00, 000 

310 DATA 00,00, CO, CO, 00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 180 

320 DATA 00,00, 00, CO, CO, 00, 00, F3, A2, À 
0, A2,F0, A2, A, A0, 693 
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330 DATA OA, OA, AA, AA, 00,00, 00, 00, F3, À 
2, A0, A2, F0, 00, 0A, 539 
340 DATA AO,0F,OA,FF, AA, 00, 00, 00, 00,F 
1, A2, 2,00, A0, 00,537 
350 DATA 0A,00,0F, OA, FF, AA, 00, 00, 00, 0 
0,F3,00, A2, A2, AO, 4A3 
360 DATA AO, A0, 0, 0F, AA,FF, 00, 00, 00,0 
0,00,F1, A2, A2, 00,537 
370 DATA F1,00, 04, 00,0F, OA, FF, AA, 00, 0 
0,00,00,F1, A2, A2, 4F2 
380 DATA 00, A0, 00, 5A, 00, OA, 00, AA, 00, 0 
0,00,00,00, F3, A2, 343 
300 DATA A2,00, AO, A2, OA, AO, OF, OA, FF, À 
A, 00,00, 00, 00, A2, 4F2 
400 DATA A2, A0, A2, FO, AO, OA, AO, OA, OA, À 
A, AA ,00, 00, 00, 00,586 
410 DATA F1,42,51,00,50,00, 05, 00, 0F,0 
A, FF, AA, 00, 00, 00, 3FB 
420 DATA 00,50, A2, 00, A2, 00, AO, OA, OA, 0 
F,OA,FF, AA, 00, 00, 404 
430 DATA 00,00, A2, A2, A2, A0, FO, 00, OA, À 
0, OA, OA, AA, AA, 00,588 
440 DATA 00,00, 00, A2, 00, AO, 00, A0, 00, 0 
A,00,0F, 04, FF, AA, 3AE 
450 DATA 00,00, 00, 00,F3, A2, AO, A2, OA, À 
0,04, OA, OA, OA, AA, 453 
460 DATA AA, 00, 00, 00,00, F3, 00, AO, A2, A 
0, A2,0A, AO, OA, OA, 4DF 
470 DATA AA, AA, 00, 00,00, 00, F1, A2, A0, À 
2,04, A0, 04, OA, OF, 4F6 
480 DATA OA,FF, AA, 00, 00, 00, 00, F3, A2, À 
0,A2, F0, A0, OA, 00,624 
490 DATA OA,00, AA, 00,00, 00, 00, 00, F3, A 
2, A0, A2, AO, AO, OA, 4DS 
500 DATA OA,0F, 04, AF, AA, 00, 00, 00,00, F 
1,A2, A0, A2, AO, AO, 591 
510 DATA OF, 00,04, OA, AA, AA, 00, 00, 00, 0 
0,F3,A2, A0, 00, F0, 49C 
520 DATA 40,00, 04, 0F, OA,FF, A4, 00, 00,0 
0,00,F1,A2,51,00,450 
530 DATA 51,00, 50, 00,05, 00,55, 00,00, 0 
0,00, 00, A2, A2, A2, 2E1 
540 DATA A2, AO, A2, OA, A0, OF, OA, FF, AA, 0 
0,00,00, 00, A2, A2, 594 
550 DATA A2, A2, A0, AO, SA, OA, AF, AA, 55, 0 
0,00,00,00, 00, 2,538 
560 DATA A2, AO, A2, OA, A0, 0F, A0, 5F, OA, À 
A, 4,00, 00, 00, 00, 4FA 
570 DATA A2, A2, A0, A2, 50,00, OA, AO, OA, 0 
A, AA, AA, 00, 00, 00, 4EB 
580 DATA 00, A2, A2, AO, A2, A, A2, 05,00, 0 
5,00,55,00, 00,00, 3E1 
590 DATA 00,00, F1, A2, 00, A2, 50, 00, 04,0 
0,0F,O0A,FF, AA, 00,451 
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600 DATA 00,10, 30, 30, 30, 30, CC, CC, CC, 6 
4,CC,3F,3F,64,9D,5E3 
610 DATA 3D,3F,64,3E, 3E, 3€, 64, 3F, 30,3 
C,64,3E, 3, 79,64, 473 
620 DATA 3F,30, 79,64, 3E, 3C,F3,64,3E, 7 
9,F3,64,3E, 79,F3,6E1 
630 DATA 30, 30, 30, 20, CC, CC, CC, 30,3F,3 
F,CC,98,3F,3E,6E,611 
640 DATA 98, 3D, 30, 30,98, 3C, 3E, 3F,98,B 
6, 3D, 3D, 98, B6, 3C, 5F2 
650 DATA 3F,98,F3, 30, 30,98, F3,B6, 30,9 
8, F3,B6, 30,98, 64,838 
660 DATA 3E, 79, F3,64,3E, 3C, F3, 64,3E, 3 
C, F3,64,3F, 3C, 79,64 
670 DATA 64,3E, 3€, 79,64,3F, 30, 30,64, 3 


-E, 3€, 3E,64, 90, 3D, 4D1 


680 DATA 3F,64,CC,3F,3F,30,CC, CC, CC, 1 
0,30, 30, 30, F3,B6,6CA 
690 DATA 3D,98,F3,B6, 30,98, F3, 3C, 30,9 
8,86, 3C, 3F, 98, 6, 7D6 
700 DATA 3D, 30,98, 3C, 3E, 3F,98, 3D, 30,3 
D,98, 3F,3E,6E, 98,535 
710 DATA 3F,3F,CC, 98, CC, CC, CC, 30, 30,3 
0,30, 20,F3,F3,F3, 7FF 
720 DATA F3,0F,58,0F,5B,0F,58,0F,5B, 0 
F,5B,0F,5B,F3,F3,555 
730 DATA F3,F3,F3,F3,58,5B, A7,F3,58,5 
8, 58,8, A7, F3, 5B,97D 
740 DATA F3,F3,F3,F3,F3,F3,F3,5B, 59, À 
7,F3,59,58, 59, 5B, ASB 
750 DATA A7,F3,5B,F3,F3,F3,F3,F3,F3,F 
3,0C,59, A6, F3,0C, AA4 
760 DATA F3,0C,59, A6, F3,0C,F3,F3,F3,F 
3,F3,F3,F3, 59, F3,AEE 
770 DATA A6,F3,59, 59,59, 59, A6, F3, 59,F 
3,F3,F3,F3,F3,F3,AAL 
780 DATA F3,59,F3, 0C, 59,59, 58, 59, 59, À 
6,F3,0C, 59, F3, F3, 7EC 
790 DATA F3,F3,F3,F3,FB,F3,FF,FB,FB,F 
8, FB,FB, F7,F3,FF,E89 
800 DATA FB,F3,F3, CO, CO, CO, DO, F3, E0,D 
1,F2, 4A,D1, AS, 48, BBF 
810 DATA DO, 0E, EA, CO, CO, CO, 30, 30, 30, C 
C, CC, CC, 3F, 3F, 3F, 789 
820 DATA 30,30, 3C, F3,F3, 30, 79,F3,F3,F 
3,B6,3F,3E,F3,F3,941 
830 DATA F3,B7,CC, 9D,F3,F3,F3, E6, 30,6 
4,F3,F3,F3, 82, CO, BB1 
840 DATA 90,F3,F3,F3,E2,FF,EA, F3,F3,3 
C,68,AE, EA, 3, 79, BOB 
850 DATA 3F,6A, AE, EA, 3F, 7, CC, CB, AE,E 
A, CC, D9, 30,60, AF, 908 
860 DATA EA, 30,71,C0, C0, AF, EA, CO, Di,D 
5,FF,FA,FF,FF, Di, BD2 
870 DATA D5,0D,F1,0C, 5D, Di, DS, 0C, 59, À 


5, 5D,D1,D5, FF, FA, 8E8 
880 DATA FF,FF,D1, CO, CO, AF,EA, CO, D1,3 
0,60, AF,EA, 30, 71,443 

890 DATA CC, CB, AE, EA, CC, D9, 3F, GA, AE, E 
A,3F,78,3C,68,FF,96F 

900 DATA EA, 3, 79,F3,E2,C0, CO, F3,F3,F 
3,82, 30, 30, F3, F3, ACS 

910 DATA 30,CC,3F,3F,3C, 3C, 3F, 3F, CC, 3 
0,64,3E,F3,F3,F3,6E7 

920 DATA F3,20, 10,F3,F3,F3, F3, 30,98, 3 
C,3F,CC, 30, 30, CC, 837 

930 DATA 3F,3C, 3C, 30, 30, 3C, 3, 3C,3C, 3 
C,3C, 30, 3C, 3F, 3F, 38D 

‘940 DATA 3F,3F,3F,3F,3F,3F,3F, 3F,3F,C 
C,CC, CC, CC, CC, CC, 6FF 

950 DATA CC,CC, CC, CC, CC, 30, 30, 30, 30, 3 
0,30, 30, 30, 30, 30, 5DC 

960 DATA 30,60, CO, CO, CO, CO, CO, CO, CO, C 
0, C0,90,60, CO, CO, 9C0 

970 DATA CO, C0, CO, CO, CO, CO, CO, 90,60, C 
0, CO, CO, CO, CO, CO, ABO 

980 DATA CO, 30,60, 90,60, CO, CO, CO, CO, C 
0, C0, CO, CC, CB, 90, 944 

990 DATA 60, C0, CO, CO, CO, CO, CO, CO, 2A,6 
4,90,60, CO, CO, CO, 964 

1000 DATA CO, CO, CO, CO, 3C,68, 90, 60, CO, 
CO, CO, CO, CO, CO, CO, BD4 

1010 DATA CO, 6A,90, 60, CO, CO, CO, CO, CO, 
CO, CO, CC, CB, 90, 60, SDE 

1020 DATA CO, CO, CO, CO, CO, CO, CO, 30,60, 
90,60, CO, CO, CO, CO, 9C0 

1030 DATA CO, CO, CO, CO, CO, 90, 60, CO, 30, 
60, 30,60, 30,60, 30, 750 

1040 DATA CO, 90,60, CO, CC, CB, CC, CB, CC, 
CB, CC, CO, 90,60, CO, A68 

1050 DATA 2A,6A, CO, GA, 2A, 64,95, CO, 90, 
60,C0, 28,68, 3C,68, 688 

1060 DATA 28,68,94, CO, 90, 60, CO, 2A, GA, 
GA, CO, 2A, 64,95, CO, 73B 

1070 DATA 90,60, CO, CC, CB, CC, CB, CC, CB, 
CC, C8, 90,60, CO, 30, 9E0 

1080 DATA 60, 30,60, 30, 60, 30, 60, 90, 60, 
CO, C0, CO, CO, CO, CO, 780 

1090 DATA CO, CO, CO, 90, 60, CO, CO, CO, CO, 
CO, CO, CO, CO, CO, 90, A80 

1100 DATA 30,30, 30, 30, 30, 30, 30, 30, 30, 
30, 30, CC, CC, CC, CC, 540 

1110 DATA CC, CC, CC, CC, CC, CC, CC, 3F,3F, 
3F,3F,3F,3F,3F, 3F, 78C 

1120 DATA 3F,3F,3F, 30, 30, 3C, 3C, 3C, XC, 
30,30, 3C, 3C, 3C, 00, 351 

1130 DATA 00, 00, 40, CO, 00, 00, 00, 00,00, 
00,00, 00, 00,95, 98, 22D 

1140 DATA 80, 00,00, 00, 00,00, 00, 00,00, 
C4, 30, C0, 00, 00, 00, 234 
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1150 DATA 00, 00,00, 00, 00, 40,85, A7, 80, 
00,00, 00, 00, 00, 00, EC 
1160 DATA 00, 00,84, 0€, 80, 00, 00, 00, 00, 
00,00, 00,00, DS, 5D, 244 
1170 DATA 80, 00,00, 00, 00, 00,00, 40, CO, 
CO,E2, CO, 00, 00, 00, 3E2 
1180 DATA 00, C0, C0, 85, A7, 5D, F5, 0D, 80, 
00,00, 00, Di, F3, CO, 70F 
1190 DATA 64, CB, 4A,C4, 60, 00,00, 00,85, 
D1,D5, 90, 89, A3,6E, 6EF 
1200 DATA CB, 00,00, 00, Di,85,EA, 90, C8, 
E2,9D, C8, 00,00, 00, GA7 
1210 DATA 85,F3,C0,90, D9,94,64,60,00, 
00,00, 84, 0F, CO, 64, 680 
1220 DATA 21,A3,98,60, 00, 00,00,D5,0C, 
C0, 30, 30, 12, 30, EA, 4E9 
1230 DATA 00,00,00,D6,FF,D5,85,5D,5F, 
4A,D5, 80, 00,00, 40, 5C9 
1240 DATA F1,F7,C0, C0, 4A, CO, CO, EA, CO, 
80, 40, 5A, A6,5B, CO, 9B7 
1250 DATA 48, C0, C0, F3, 0E, EA, 40,59,5F, 
0D, E2, EA, CO, Di, A5, 8BA 
1260 DATA EA, 80, 40,0F,E2,E2,F3,F3,F3, 
F2,0E, 80, 00, 40, 0E, 824 
1270 DATA 44, 4A, 4, 44,58, 5B, 5D, 80, 00, 
40,0D, D, 0D, 0D, OD, 33C 
1280 DATA OD, 0D,EA, 00, 00, 40, AE, 0E, AE, 
AE, AE, AE, AE, 80, 00, 5E6 
1290 DATA 00,00,D5,5D,FF,FF,FF,FF,FF, 
80,00, 00, 00, 40, CO, 7AD 
1300 DATA CO, CO, CO, CO, CO, 00, 00, 00, 00, 
00,00, 00, 00, 00, CO, 480 
1310 DATA 80, 00,00, 00, 00,00, 00, 00, 00, 
40,64, 64, 00,00, 00, 18E 
1320 DATA 00, 00,00, 00, 00, CO, 30, C8, 00, 
00,00, 00, 00,00, 00, 1B8 
1330 DATA 40,58, 4A, 80, 00, 00, 00, 00, 00, 
00,00, 40, 0D, 48,00, 1FA 
1340 DATA 00, 00,00, 00, 00, 00, 00, 40, AE, 
EA, 00, 00, 00,00, 00, 1D8 
1350 DATA 00, 00,00, CO, Di, CO, CO, 80,00, 
00,00, 00, 00, 40, 0E, 3DF 
1360 DATA FA, AE, 5B, 44, CO, CO, 00, 00, 00, 
90,CB, 85, C4,98, CO, 7C6 
1370 DATA F3,E2,00, 00, 00, C4, 9D, 53, 46, 
60, A, E2, 4A,00, 00,645 
1380 DATA 00, C4,6E, Di, C4,60, DS, 4A,E2, 
00,00, 00, 90,98, 68, 6B8 
1390 DATA E6,60,C0, F3, 4A, 00, 00, 00,90, 
64,53, 12,98, CO, OF, 603 
1400 DATA 48, 00,00, 00,D5, 30, 21, 30, 30, 
CO,0C, EA, 00,00, 40, 3C4 
1410 DATA EA,85,AF, AE, 4A, EA, FF, EA, 40, 
CO,D5, CO, CO, 85, CO, A83 
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1420 DATA CO, FB,F2, 80, D5, 0D, F3, C0, CO, 
84, C0, A7, 59, A5, 80, 8EB 
1430 DATA 40,D5,5A,E2, C0, D5, Di, 0E, AF, 
A6, 80, 00, 40, 0D, F1, 7D8 
1440 DATA F3,F3,F3,D1,D1,0F,80, 00, 40, 
AE, A7, A7,85,85,85, 8D5 
1450 DATA 85, 0D, 80, 00, 00,D5, 0E, 0E, 0E, 
0E, 0€, 0E, 0E, 80, 00, 2C9 
1460 DATA 00, 40,5D, 5D, SD, 5D, 5D, 0D,5D, 
80,00, 00, 40,FF,FF, 539 
1470 DATA FF, FF,FF, AE, EA,00, 00, 00, 00, 
CO, CO, CO, CO, CO, CO, 815 
1480 DATA 80, 00,00, 00, 00, 00, 00, 00, 00, 
CO, 80, 00, 00, 00, 00, 1C0 
1490 DATA 00, 00,00, 00, CO, F3, E2, 00, 00, 
00,00, 00, 00, 00, 40, 2D5 
1500 DATA F3,6E, 80, 00, 00, 00, 40, CO, 80, 
00, D1,B6,98, 80, 00, 600 
1510 DATA 00, 00,D1,F3, E2, CO, F3, 3D,60, 
00,00, 00, 40, F3, F3, 71C 
1520 DATA F3,F3,F3,6E, 60, 00,00, 00, Di, 
30, 3C, F3,D8, F3, B2, 863 
1530 DATA 60,00, 40, 80,94, 3F,3E, 6D,5D, 
F3,F3,60, 00, D1, E2,6F4 
1540 DATA 95, CC, 9D, 3E, DB, F3, F3,E2, 00, 
D1, 30, C4, 30,64, 9D, BE2 
1550 DATA 79,F3,F3, E2, CO, B6, 64, 90,53, 
12,64,3E, F3,F3, 79,917 
1560 DATA E2,3C,80,D1, 53,03, 12,9C, 79, 
86, B6, F3, 79,80,D1,815 
1570 DATA 53,53,53, 35, 3E, F3, 30, 78, 79, 
80,94, 16,53, 16, 7B,59E 
1580 DATA B7,B6,6E, 9D, 79, 80, 81, 29, 3C, 
03,B6,F3,87,98, 64, 786 
1590 DATA 79,80,D1,53, 03,F3,30,F3,6E, 
30,90, 79, 80,94, B6, 7B4 
1600 DATA F3,3C,3F,F3, 30, CO, 90, 79, 80, 
95, 30, 3C, 3F, 9, 79, 73D 
1610 DATA CO, 80,90, 3E, 80, C4, 6E, 3F, CC, 
64,3E, E2, E2, 40, 9C, B0OD 
1620 DATA E2, 90,98, CC, 30, 30, 90, 79,68, 
40,35,68, 40, 30, 30,631 
1630 DATA 60, C0,64, 3€, 64, 00, C4, 3€, 00, 
CO, CO, 80, 40, 30, 9D, 638 
1640 DATA C8, 00,90, CB, 00, 00,00, 00, 00, 
90,64, 60, 00, 40, 80, 434 
1650 DATA 00, 00,00, 00, 00, 00, 90, 80, 00, 
00,00, 00, 00, 40, CO, 210 
1660 DATA 00,00, 00, 00, 00,00, 00, 00,00, 
D1,F3,C0,00, 00, 00, 284 
1670 DATA 00,00, 00, 00, 00, 40, 9D, F3,80, 
00,00, 00, 00, 00, 00, 250 
1680 DATA 00, 40,64, 79, E2,00, 40, CO, 80, 
00,00, 00, 00, 90, 3€, 44D 
1690 DATA F3,C0,D1, F3, E2,00, 00, 00, 00, 


90,9D, F3,F3,F3,F3, 952 
1700 DATA F3, 80, 40, 80, 00,90, 71, F3,E7, 
F3,3C, 3C, E2, Di, E2, 90E 
1710 DATA 00,90, F3, F3, AE, 9E, 3D, 3F,68, 
3E,E2, 00, D1,F3,F3,87D 
1720 DATA E7, 3D,6E, CC, 6A,95, 79, CO, Di, 
F3,F3, 6, 6E, 98, 30, 939 
1730 DATA C8, 40,30, Di, B6, F3, F3, 3D,98, 
21,43, 60, 40, B6, F3, 893 
1740 DATA 79, 79,B6, 60, 21,03, A3, E2, 40, 
86,87, 3E, F3, 3D, 3, 712 
1750 DATA A3, A3, A3, E2, 40, BG, 6E, 9D, 79, 
78,87, 29, A3, 29,68, 7D4 
1760 DATA 40,B6,98, 64, 7B,F3, 79,03, %, 
16,42, 40, B6,60, 30,5F6 
1770 DATA 9D, F3,3E, F3, 03, A3, E2, 40, B6, 
60, C0, 30, F3, 3F, 3C, 7FD 
1780 DATA F3, 79,68, 40, 3D, 60, 40, CO, B6, 
6E,3F,3C, 3E, 64, D1,6C9 
1790 DATA 6C, 80,D4, Di, 30,98, CC, 3F, 90, 
CB,94, 34, 80,94, B6, B6B 
1800 DATA 6E, 30, 30, CC, 64,60, 3D, CB, 00, 
95, 30,98, CO, 90, 30, 64D 
1810 DATA 30,80, C4, 60, 00, C4, GE, 30,80, 
40,C0, CO, 00, 40, 80,636 
1820 DATA 00, 90,98, 60, 00, 00, 00, 00, 00, 
00,00, 00, 40,60, 00, 228 
1830 DATA 00, 00,00, 00, 00, 00, 00, 00, 80, 
00,00, 00, 40,2, 00, 1A2 
1840 DATA 00, 00, 40, F3, 80, 00, 00, Di, A7, 
80,00, 40, F3, A6, 80, 604 
1850 DATA 00,D1,F3,5F, 80,00, Di, 0F,5D, 
80,40, F3, A7, FF, 80, 7B9 
1860 DATA 40, A7, A7, A7, 80, D1,0€, 0E,F3, 
80,D1, F7, 5D, 5B, E2, 877 
1870 DATA Di,0E,AF, 0D, E2, 85, SD, AE, AE, 
4A,00,51,00,00, 14, 56A 
1880 DATA A3,B6, 00, 29, 28, 29, 28, 02, 02, 
02,02, 00, 51,00, 00, 254 
1890 DATA 3C, A3, B6, 28, 03, 28, 29, 02,00, 
02,02, 00, 28,51, 00, 290 
1900 DATA 28,16, A3, B6, 02,04, 28, 29,00, 
00,02, 02,00, 51,00, 240 
1910 DATA F3,F3,5B,0F, D, AE, AE, 5D,55, 
AA, F3, A5, 04, F2, 74, 823 
1920 DATA OA,FF, DD, AA, F3, 70, A2, F2,45, 
A0,A5, A5, 04 ,FF,FF, ALE 
1930 DATA AA,FF,C0, FF, EA,FF, EA,FF,EA, 
0C,C0, 0C, 48, 0C, 48, 998 
1940 DATA 0C, 48,C5, CO, CA, CA, CA, CA, CA, 
CA,D1, C0, E2, E2, E2, ACC 
1950 DATA E2, E2,E2, C5, CO, CA, CA, CA, CA, 
CA,CA, 0C, 48, 0C, 48, 98F 
1960 DATA 0C, 48,00, 48,FF,EA,FF,EA,FF, 
EA, FF, EA, 00,00, 00, B4C 
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1970 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
1980 DATA 00, 00,00, 00, 00,00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
1990 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
2000 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 
00,00, 00,00, 00,55, 055 
2010 DATA 00,00, 00,00, 00,04, 00, 00,00, 
00,00, 05,00, 00, 00, 009 
2020 DATA 00,00, 50,00, 00,00, 00, 00,FB, 
AA, 00, 00, AE, SA, F3, 3F0 
2030 DATA F2,0E, AA,00, 00,FB, AA, 00,00, 
00,00, 50, 00, 00, 00, 39F 
2040 DATA 00,00,05,00, 00,00, 00, 00,04, 
00,00, 00, 79, 79, 79, 174 
2050 DATA 79, 79, 79, 3D, 3D, 3D, 30, 3D, 3D, 
6E,6E,6E,6E,6E,6E, 56D 
2060 DATA 9D, 9D, 9D, 9D, 9D, 9D, CC, CC, CC, 
CC, CC, CC, CC, CC, CC, ADA 
2070 DATA CC, CC,CC,64,64,64,64, 64,64, 
98,98, 98,98, 98, 98, 84C 
2080 DATA 64,64,64,64, 64,64, 30, 30,30, 
30,30, 30,00, 00, 00, 378 
2090 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
2100 DATA 00,00, 00,00, 00,00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
2110 DATA 00,00, 00,00, 00, 00, 00, 00,00, 
00,00, 00, CO, 00, 00, 0CO 
2120 DATA 00,00, C0,64, 80,00, 00, 40,5B, 
1A, CB, 00,00, 00, 00, 321 
2130 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
2140 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2150 DATA 00, 00,00, 00, 00, 00, 80, 00, 40, 
00,00, 00, E2, 00, 90, 232 
2160 DATA 00,00, 40,F3, CO, 60, 00, 00,D1, 
47,90, CO, 00, 40, AF, G0A 
2170 DATA 48, 6A, 00,00, 40, AE, EA, CO, 00, 
00, C0, D1, CO, CO, 40, 68B 
2180 DATA 40,0E,FB,AE,5B,85,55, 4,85, 
C5,9A, Di, 84,F3, B2, 857 
2190 DATA E7,EA, 71,75,F3,35, 71, 48,D1, 
84,D8, CE, CF,5D, D, 993 
2200 DATA D5, 4D, 18,48, AE, C5, CO, AE, AE, 
D5, 5D, 84, 00, 00, 00, 6C7 
2210 DATA 00, 00,00, CO, CO, 00, 00, 00, 00, 
SA, E2, 00,00, 00, 00, 28C 
2220 DATA AF,E0, 00,00, 00, 00, F7, 44,00, 
00,00, 00, D1, EA, 00, 48B 
2230 DATA 00, 00, 00, CO, E2, 00, 00, 00,00, 
D1,CA, 00,00, 00, 00, 33D 
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2240 DATA 4D, 48,00, 00, 00, 00, AE, 80,00, 
00,00, 00, 00, 40, F3, 2F6 
2250 DATA A6,E7,5D,00,D1,F3,5F,C0,F5, 
00,D1,0F,5D, CO,5B, 81A 
2260 DATA 40,F3,A7,FF, CO, 48, 40, A7, A7, 
A7,C0, EA, Di, 0E, 0E, BAD 
2270 DATA F3,C0,85,D1, F7,5D,5B, E2, 84, 
D1,0E, AF, 0D, E2, D5,970 
2280 DATA 85, 5D, AE, AE, A, CO, CO, CO, CO, 
CO, C0, CO, EA, DS, FF, A86 
2290 DATA CO,EA,FF,0D, CO,85, C5, CO,FB, 
AE, 4A, 84,84, CO, 48, 083 
2300 DATA F7,0D,D5,D5,84,AF, DO, DO, F2, 
E2,D1,C0, CO, 85, 85, ABO 
2310 DATA 85,85,85,0€, 84,84, 84, 84, B4, 
5D, 5D, 5D, 5D, 5D, 0D, 60F 
2320 DATA FF,FF,FF,FF,FF,AE, CO, CO, CO, 
CO, CO, CO, EA, 80, 00, B93 
2330 DATA 00,00, 00,94, 80, 00, 00, 00, 00, 
EO, C8, 00, 00, 00, 00, 2BC 
2340 DATA CO,60, 00,00, 00,00, 1A, 80,00, 
00,00, 00, D, 80, 00, 247 
2350 DATA 00, 00,00,0E, 80,00, 00, 00, 00, 
SD, 80, 00, 00, 00, 00, 168 
2360 DATA EA, 00, 00, 00, 00,00, 80, 00,00, 
00,00, 00, 00, 00, 00, 164 
2370 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2380 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2390 DATA 00, 00,00, 00, 00, 00, 00, 00, 00, 
00,00, 00, 00, 3F, 00, 03F 
2400 DATA 00, 00,00, 15, 3C, 2A, 15, 24,15, 
3E,F3, 28, 00,00, 00, 228 
2410 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2420 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2430 DATA 00,00, 00,00, 00,00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2440 DATA 15, 2A,00,00, 00, 00, 3, 3D, 00, 
00,00, 00, 3E, B7, 3D, 1EC 
2450 DATA 79,F3,F3,F3,F3,B6,F3,F3,F3, 
79,B6,F3,F3,F3,F3, CCF 
2460 DATA 3E, 3, 79,F3, 79,B6, 9D, 6E, 7B, 
F3,3E, 3D, 64,98, 3C, 742 
2470 DATA B6,9D,6E, 10, 20,3E, 3D, 64,98, 
00,00, 9D,6E, 10, 20, 443 
2480 DATA 00, 00,64,98, 00, 00, 00, 00, 10, 
20,00, 00,F3,B6, 00, 2D5 
2490 DATA 00, 00,00, 79, B6, 00, 00, 00,00, 
3E, 3, 00, 00, 00, 00, 1AA 
2500 DATA 9D,6E,00, 00, 00,00, 64, 98,00, 
00,00, 00, 10, 20, 00, 237 
2510 DATA 00,00, 00,00, 00,00, 00, 00; 00, 


00,00, 00, 00, 00, 00, 000 
2520 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 
00,00, 00, 00, 00, 00, 000 
2530 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 
00,00, 00, 00, 00, 80, 080 
2540 DATA 00,00, 00, 00, 40,E2, 00, 00, 00, 
00,40, 73,00, 00, 00, 1D5 
2550 DATA 00,91,93,00, 00,00, 00, D1,91, 
00,00, 00,00, 91, C1, 3D8 
2560 DATA 00,00, 00,00, C1,84, 00, 00,00, 
00, 40, D5,00, 00, 00, 25A 
2570 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 
C0,00, 00, 00, 40, 80, 180 
2580 DATA B3, 80,00, 40, Di, E2,63,E2, 00, 
91,F3, 73,C2, 62, 40, 7C6 
2590 DATA 63, 73,93, CA, C2, Di, C2, D3, C1, 
48,80,91,C0,9B, C1, 991 
2600 DATA EA, 00, C1, CO, 49,91, E7, 80, 40, 
40,AE, C1, 00,00, 00, 698 
2610 DATA 00,00, 40,00, 00,00, 00, 00, 40, 
00,00, 00,00, 00, 40, 0CO 
2620 DATA 00,00, 00,00, 00, DO, 00, CO, CO, 
CO,CO, Fi, 40, AE, 5B, 60A 
2630 DATA OE,FA,F2,00, CO, 4A, 4A,Fi,A5, 
00,40, 48,58, F0, 0E, 6C2 
2640 DATA 00, 40,EA,FB, A7,5D, 00, 00, CO, 
CO, C0, CO, 8E, 80, 00, 737 
2650 DATA C5,F7,C0,5D, 80,00, 84, CA, F2, 
FA, E0, 00, D5,59, F1, 892 
2660 DATA F1,F2,C0,F3, FA,F2,FO,F3,F1, 
F2, F2, A5, 5A, F0, FO, D19 
2670 DATA FO, F1,5A,AS, A5, FO, 5A, A5, 45, 
0E, 54, A5, 0D, FO, 0E, 831 
2680 DATA SD, 0D,0E, AE, OF, 5D, CO, CO, CO, 
CO, CO, CO, 00, 00, 00, 612 
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20 ' DATAS pour PIRATE2.BIN 

30 , 

40 MODE 2:AD=&C000:NL=110 

50 FOR B=1 TO 465:TO0T-0:FOR T=0 TO 14 
:READ A$ 

60 POKE AD, VAL(*&"+A$) :TOT=TOT+PEEK (A 
D) :AD=AD+1 

70 NEXT:READ SOH$:1F VAL("&"+50H$) CT 
OT THEN 90 

80 NL=NL+10:NEXT:SAVE"PIRATE2Z.BIN°,B, 
&C000, k1B37 :CLS : END 

90 CLS:LOCATE 1, 1:PRINT"LIGNE" ;NL;"IN 
CORRECTE" : END 

100 ? 

110 DATA C3,37, 75,67,90, CE, 76,21,FE,B 





D, 36, C9,06, 00, 0E, 689 
120 DATA 00,CD, 38, BC, CD, 27, 83, AF, CD, 0 
E, BC, CD, 76, 76, 21, 758 
130 DATA 64,00, 22, CD,85,3E, 01, 11, 80,8 
8, CD, 56,80, 3€, D, 52A 
140 DATA CD,96, BB, CD, 27,83, AF, CD, 0, B 
C, CD, 6C,BB, CD, C5,961 
150 DATA 83,DD, 21,B6,86, 06, 0E, CD, A2, 7 
7,21,48,86,06, 06, 5B2 
160 DATA CD, 71, 77,21,D0,52, 11, AC,EB, 0 
6,36,0E,01, 3€, 05,528 
170 DATA CD, 91, 77,21,D5, 52, 11,EC, CE, 0 
6,36, 0E,01,3E, 05,576 
180 DATA CD,91, 77,21,DA, 52, 11,98, C1,0 
6,68, 0E,07,3E, 01,54€ 
190 DATA CD, 70, 77,21,E1,52,11,CF,C1,0 
6,68,0E,07,3E, 01,578 
200 DATA CD, 70, 77,21, DA, 52, 11,48, C1,0 
6,8B, 0E,02, 3, 01,508 
210 DATA CD, 70, 77,21,E6,52, 11,84, C1,0 
6,88, 0E, 02, 3, 01,550 
220 DATA CD, 70, 77, 21,E8,52, 11, 4E, E9, 0 
6,32, 0E,01,3E, 04, 4ED 
230 DATA CD,91,77,21,EC, 52, 11,5E, ED, 0 
6,32, 0E,01, 3€, 04,519 
240 DATA CD,91, 77, CD,38,83,C3,55, 77,4 
9,4E,53,45,52, 54, 6C1 
250 DATA 20,43,4F, 49, 4E, 2A, 3A, 1A, 86,C 
D, 1E, BB, C2, 08, 76,533 
260 DATA 06,96, CD, AB, 83,3, 01, 32, C8, 8 
5, CD, Bi, 7E, CD, C9, 7E4 
270 DATA 7E,CD, 27,83, CD,C5,83,CD,B7,8 
3,21,F0,52, 11,C7,B4C 
280 DATA E5,01,08,00,3E, 18, CD, 88, 82, 3 
E, 09, 32,0, 85, C6, 5B5 
290 DATA 30,32,CD,87,21,CD,87,11,1F,D 
6, CD, CE, 82, 21, 00,66F 
300 DATA 00,22, CD, 85, AF, 32, D2, 85, 32, 7 
D,85, 32, CF, 85, 32,688 
310 DATA 06,85, 32, 17,85, 32, 28,85, 32,D 
1,85, 32, E0, 85, 32, 589 
320 DATA DF,85, 32, E4,85, 32, D4, 85, C3, 8 
F,76, 21,E6, 85, 22,802 
330 DATA E7,85,21,F2,85,22,F1,85,21,F 
8,85, 22,F7,85, 21, 7F9 
340 DATA FA,85, 22,F9,85,C9, AF, 32,CF,8 
5, CD, 38,82, CD, 97,908 
350 DATA 83, CD, B5, 80, CD, SA, 83, CD, B2, 7 
8, CD, 38,83, C3, C7,938 
360 DATA 77,21,C4, 76,11, 16,86, 01,05, 0 
0, ED, B0, C3, 08, 76,563 
370 DATA 21,09, 76,11,16,86,01,05,00,E 
D, B0, C3,08, 76, 48,539 
380 DATA 49, 44, 4B, 4C, 00, 02, 08, 01, 2F,3 
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A,D0, 85, 3D, FE, 00, 42E 
390 DATA C2, DD, 76,3E, 01, 32, CF,85,AF,3 
2,D0,85,21, 10, 00,641 
400 DATA CD, CE, 84,01,50,4E, 09,11, 1F,D 
6,01, 02,00, 3, 08,416 
410 DATA C3,88,82, 01, 1D,01,C5,3E, 12, C 
D, 1E, BB, CA, 4D, 83,638 
420 DATA CD, 75,82, CD, 80, 7C, CD, D6, 83, C 
D,B5, 80,C1,08, 78, BF9 
430 DATA B1,FE,00,C2,F8, 76,06,FA, CD, À 
8,83,06,FA, CD, AB, 94C 
440 DATA 83,CD,C5,83, 21, 10,27,11,9F,C 
9,01, 30,00, 3€, 64,53€ 
450 DATA CD, 88,82, 21, 1B,86,06,02, CD, 7 
1,77,06, FA, CD, A8,6CB 
460 DATA 83,06, FA, CD, AB, 83,06, FA, CD, À 
8,83,06,FA, CD, A8, BE8 
470 DATA 83,06, FA, CD, AB, 83, C3,60, 75,3 
E, 4C, CD, 1E, BB, C2, 805 
480 DATA AB, 76,3E, 2F, CD, 1E, BB, C2, B6, 7 
6,C3,55, 77, CD, 00, 778 
490 DATA BB, 21, EE, BD, 36, C9, C9, C5, 5E, 2 
3,56, 23,CD, CE, 82,828 
500 DATA C1,10,F5,C9,C5,F5,E5,D5, 06, 0 
0, CD, 88,82, Et, CD,98E 
510 DATA 26,BC,EB, Et, F1, C1, 10,ED, C9, C 
5,F5,E5,D5, 06, 00, 9AO 
520 DATA CD,88,82,D1,13,E1,F1,C1,10,F 
0,C9, C5, DD, ES, DD, A7B 
530 DATA 5E,00,D0,56,01, DD, 6E, 02, DD, 6 
6,03, DD, 4E, 04, 06, 55A 
540 DATA 00, DD, 7E,06, CD, 88, 82, DD, Et, 1 
1,08, 00, DD, 19, C1,6C6 
550 DATA 10,DC, C9, 3A, F2, 84,FE,00, C4, F 
E, 80, 3A,DF,85,FE, 941 
560 DATA 01,CA,FS, 76,34, CF, BS,FE, 01, C 
A, 84,80, 34, C7, 85,817 
570 DATA FE,01,CA,F5, 76, 34, F2,84,FE, 0 
0, C2, 0C, 78, 34, ES, 847 
580 DATA 85,FE,01,CA, F9, 7F, 34, 16,86, C 
D, 1E, BB, C2, 6F, 78, 7EB 
590 DATA CD, 7F, 78, 34, 1A, 66, CD, 1E, BB, C 
4, E0, 7E, CD, Et, 7E, 892 
600 DATA CD, 75,82, CD, 80, 7C, 3E, 12, CD, 1 
E, BB, C4, 4D, 83, 3E, 755 
610 DATA 42, CD, 1E,BB, C2, 84, 80,C3, C7, 7 
7,34, F2,84, FE, 00, 85D 
620 DATA C4,FE, 80, 3A, F2, 84, FE, 00, C2, à 
1,78, 34, 1A, 86, CD, 812 
630 DATA 1E, BB, C4, E0, 7E, CD, E, 7E, CD, 7 
5, 82, CD, 80, 7C, 3E, BF2 
640 DATA 12, CD, 1E,BB, C4, 4D, 83,C9, 34,F 
2,84,FE,00, CO, 34, 7BD 
650 DATA E3,85,FE,01,CA,68, 78,21, 21,5 
5,22, EB,84, C9, 21,723 


660 DATA 19,54, 22, EB, 84, C9, 3, F2, 84,F 
E, 00, C2,0C, 78, 3E, 6F9 
670 DATA 01,32,E5,85,C3,C7,77, 34, F2, 8 
4,FE, 00, C0, 34, 19, 75F 
680 DATA 86, CD, LE, BB, C2, E2, 7E, 34, 18,8 
6,CD, 1E, BB, C2, AF,83D 
690 DATA 7F,C9, 21, 0,00, 3E,64,E5,E5,3 
6,C0,D1,13,01, 09,659 
700 DATA 00, ED, BO,E1,11,46,00, 19, 3D, C 
8, C3, 9D, 78, CD, 38,6D0 
710 DATA 82, CD, 44, 82, 34,4, 85, 21,50, 0 
0, CD, CE, 84, 01, 77,6C6 
720 DATA 8F,09, 11,E3,05,06, 04, C5,E5, D 
5,06,08,C5,E5, D5, 6AD 
730 DATA DS, 7E, 21, 3C, 00, CD, CE, 84,01, C 
7,58,09,D1, 01,06, 5D0 
740 DATA 00,3E, OA, CD,06,84,E1, 11,06, 0 
0,19,EB,E1, 23, C1,560 
750 DATA 10,DD,E1,11,BC, 02, 19,EB,E1, 0 
1,08, 00,09, C1, 10,565 
760 DATA CA,21,E3,05,11,9F,C9,01, 30, 0 
0,3E,64,C3, 84, 84, 5EA 
770 DATA DD, 21, 28,85, 06, 04, DD, 36, 00, 0 
1,11, 80,58, DD, 73, 502 
780 DATA 07,DD, 72,08, DD, 36, 09,05, DD, 3 
6,04, 0B, CD, A1, 85, 59A 
790 DATA DD, 77,08, DD, 36, 0D, 00, DD, 36, 0 
E,00, 11,11, 00, DD, 49F 
800 DATA 19, 10,D6, DD, 21, 28, 85, DD, 36, 0 
C,50, DD, 21, 39, 85, 5D5 
810 DATA DD, 36, 0C, 3C, DD, 21, 44,85, DD, 3 
6,0C, 32, DD, 21, 5B, 5D2 
820 DATA 85,DD, 36, 0C,64, DD, 21,6C, 85, D 
D,36,00,01, 11,69, 585 
830 DATA 56,DD, 73, 07, DD, 72, 08, DD, 36, 0 
9,08, DD, 36, 04, 10,555 
840 DATA DD, 36,08, 94, DD, 36, 0C, BE, DD, 3 
6,0D, 00,3E, 01, 32, 4F0 
850 DATA CB,85, C9, DD, 21, 70,85, DD, 36, 0 
0,01,11,CB,58, DD, 73B 
860 DATA 73,07, DD, 72,08, DD, 36, 09, 08, D 
D, 36, 04,07, DD, 36,52€ 
870 DATA 0B,6F, DD, 36,0C, 8C, C9, DD, 21, 1 
7,85,DD,36, 0D, 00, 5C8 
880 DATA 26,87, 2E, 4B,3E,01, CD, DE, 79,D 
D, 21, 39,65, DD, 36,658 
890 DATA 0D,01, 26, 73,2E,5F,3E,01, CD, D 
E, 79,D0, 21,58, 85,575 
900 DATA DD,36, 0D, 02, 26,96, 26,55, 3, 0 
2,C3,DE, 79, DD, 77,60F 
910 DATA 00,11, 7A,58, DD, 73,07, DD, 72,0 
8, DD, 36,09, 04, DD, 58E 
920 DATA 36,04, 04, DD, 74,08, DD, 75,0C, D 
D,36,0E, 00, C9, DD, 5C5 
930 DATA 21,17,85, CD, 2A, 7A, CD, 61, 7A,D 
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D, 21, 39,85, CD, 24,689 
940 DATA 7A,CD,61, 7A, DD, 21,5B,85, CD, 2 
A, 74, CD, 61, 74, CD, 7E6 
950 DATA Et, 7A,DD,21,17,85,11,11,00,0 
6,06, C3, 12, 81, 3E, 4B7 
960 DATA 03,21, 10,00,01, 74,58, CD, 81, 7 
E, DD, 7E,00,FE, 01,52D 
970 DATA CA, 43, 7A,FE, 02, CA, 52, 7A, C9, D 
D, 7E,0B, 3C, DD, 77, 7DC 
980 DATA OB,FE, A5, D8, DD, 36,00, 02, C9, D 
D, 7E, 0B, 3D, DD, 77, 75B 
990 DATA 0B,FE,66,D0, DD, 36, 00,01, C9, D 
D,7E,11,FE, 00, C2, 748 
1000 DATA 9D, 7A,DD,ES,FD,E1,11,11,00, 
DD, 19, CD, 8E, 85, DD, 88C 
1010 DATA 77,00, 11, AA,58, DD, 73,07, DD, 
72,08, DD, 36,09, 02, 556 
1020 DATA DD, 36,04, 06, FD, 7E, 08, 3C, DD, 
77,08, FD, 7E, OC, C6, 691 
1030 DATA 03, DD, 77,0C, DD, 36,0E,00, C9, 
11,11,00,DD, 19, CD, 532 
1040 DATA B3, 7A,DD, 7E,00,FE, 01, CA, C3, 
7A,FE, 03, CA, D2, 7A, BAS 
1050 DATA C9, DD, 7E, 0C,C6,05, DD, 77,0C, 
FE, CD, D8, DD, 36, 00, 811 
1060 DATA 00, C9, DD, 7E,0B, 3D, DD, 77,08, 
FE, 69, DO, DD, 36, 00, 715 
1070 DATA 00, C9, DD, 7E,0B, 3C, DD, 77,08, 
FE, A5, D6, DD, 36, 00, 758 
1080 DATA 00,C9, DD, 21, 70,85, DD, 7E, 00, 
FE, 00, C8, DD, 7E, 0C, 751 
1090 DATA D6,02, DD, 77,0C,FE, 34,D0, DD, 
36,00, 00, C9, DD, 21, 714 
1100 DATA 17,85, 26,91,2E, 00, CD, 07,78, 
C9,DD, 36, 00,01, 11, 4BE 
1110 DATA 39,58, DD, 73,07, DD, 72,08, DD, 
36,09, 05, DD, 36, OA, 57D 
1120 DATA OD, DD, 74,08, DD, 36, 0C, 94, DD, 
36,0€, 00, DD, 75, 10, 59F 
1130 DATA C9, DD, 21, 17,85, CD, 3€, 78, DD, 
21,17,85,11,11,00, SAS 
1140 DATA 06,01,C3, 12,81, DD, 7E, 10,3C, 
DD, 77, 10,FE,01, CA, 631 
1150 DATA 59, 7B,FE, 02,C8,FE, 03, CA, 5D, 
78,DD, 36, 10,00, C3, 725 
1160 DATA 3E, 7B,DD, 35,0C, C9, DD, 34, 0C, 
C9, DD, 21, 28,85, DD, 70E 
1170 DATA 36,00,01, 11,29,56, DD, 73,07, 
DD, 72, 08, DD, 36, 09, 491 
1180 DATA 0B,DD, 36, 04, 18, DD, 36,0B,8C, 
DD, 36, 0C, 96, DD, 36, 5B2 
1190 DATA 10,00,AF, 32,C8,85, C9, DD, 21, 
28,65, CD, 9E, 78, DD, 775 
1200 DATA 21,28,85, 11,11,00,06, 01, C3, 
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12,81, CD, CO, 7B,FE, 553 
1210 DATA 00, C8, DD, 7E, 10, 3C, DD, 77, 10, 
FE, 07, DA, D8, 78, FE, 803 
1220 DATA 0F,D8,FE, 14, DA, Ei, 78,FE, 18, 
D8, DD, 36, 10, 01, C9, 804 
1230 DATA DD, 7E,08, 3D, DD, 77,0B,FE, 62, 
DO, DD, 36, 0B, AO, DD, 7CD 
1240 DATA 36,0C,96, DD, 36, 10,00, AF,C9, 
DD, 7E, 0C, D6, 07, DD, 694 
1250 DATA 77,0C, C9, DD, 7E,0C, C6,07,DD, 
77,00, C9, DD, 21,4, 78B 
1260 DATA 84,05, 1A,11,11,00,FE,01, 28, 
05, DD, 19, 3D, 18, F7, 503 
1270 DATA Di,C9,3E, 02, CD, 90, BB, 26,01, 
2E,01, CD, 75, BB, CD, 712 
1280 DATA 00,89, DD, 21, 17,85, DD,6E, 00, 
26,00, CD, 44,EF, DD, 6A1 
1290 DATA 21,39,85, DD, 6E, 00, 26,00, CD, 
44,EF, DD, 21,58, 85,62E 
1300 DATA DD,6E, 00, 26,00, CD, 44,EF,C3, 
03,B9, 34, D4,85,FE, 781 
1310 DATA 00,C8,3A,D5,85, 30, FE, 00, CA, 
5C, 7C, 32, D5, 85, 34, 6FF 
1320 DATA D7,85,3C, 32,D7,85,FE,01,CB, 
FE, 02, CA, 74, 7C,AF, 856 
1330 DATA 32,D7,85,C3, 46, 7C, AF, 32,D4, 
85,C3, 53, 78, 34, DE, 7F3 
1340 DATA 85,FE,01,C8, 3A,E3,85,FE, 01, 
CA,94, 7F, C3, 79, 7F,885 
1350 DATA 21,98, 34, 22,EB, 84, 3€, 01, 32, 
DE, 85, C9, CD, 34, 7C, 69E 
1360 DATA 3A,C8,85,47,FE, 00, C4, AB, 83, 
3A,DE, 85, FE, 00, CC, 822 
1370 DATA 53,78,AF,32,DE,85, 11, DA, 64, 
06,04, CD, EA, 7B, C5, 785 
1380 DATA DS, DD, 7E, 00, FE, 00, 28, 44, DD, 
7E,0C, FE, D2, D2, ED, 890 
1390 DATA 7C, DD, 7E,OB,FE, AO, D2, ED, TC, 
CD, 18, 7E,FE, 01, CA, BEA 
1400 DATA ED, 7C, 11,38, 4A,CD,9C, 7E, DD, 
75,01, DD, 74,02, 11, 69A 
1410 DATA CB, 4B, CD, 9C, 7E, DD, 75,03, DD, 
74,04,DD,56,06, DD, 7BA 
1420 DATA 5E,05, DD, 4E, 09, 06, 00, DD, 7E, 
OA, CD, 06, 7E, CD, LE, 53E 
1430 DATA 84,D1,C1,13, 10, AB, 11, DA, 84, 
06,4, CD, EA, 7B, C5, 75A 
1440 DATA DS, DD, 7E, 00,FE, 00, 28,3C,FE, 
FF, CA, 3F, 7D, DD, 7E, 870 
1450 DATA 0C,FE, D2, D2, 3F, 7D, DD, 7E, 08, 
FE, A0, D2, 3F, 7D, CD, 8C9 
1460 DATA 18, 7E,FE,01,CA,3F, 7D,DD,66, 
04,DD,6E, 03, DD, 56, 6E6 
1470 DATA 08, DD,5E, 07, DD, 46,09, CD, 41, 
7E, CD, 60, 7E, DD, 7E, 708 


1480 DATA OA,CD,06, 7E, 4F,CD, 49, 84,D1, 
C1,13, 10,83, 21,E3,680 
1490 DATA 05,11,9F,C9,01,30, 00, 3E, 64, 
CD,84, 84, C3, A4, 7D, 60A 
1500 DATA 11, DA, 84,06, OA, CD, EA, 7B,C5, 
DS, DD, 7E, 00,FE, 00, 7A4 
1510 DATA 28,39, DD, 7E,0C,FE, D2, D2,9F, 
70,00, 7E,0B,FE, AO, 88A 
1520 DATA D2,9F, 7, CD, 1B, 7E,FE, 01,CA, 
9F, 7, DD, 66,04, DD, 85D 
1530 DATA 6E, 03, 28, DD, 56,02, DD, 5E, 01, 
DD, 7E, 09, C6, 02, 4F, 588 
1540 DATA CD, 28, 7E, 06,00, DD, ZE, OA, CD, 
06, 7E, CD, 84,84,D1,6D8 
1550 DATA C1,13,10,86,11,DA, 84, 06,04, 
CD, EA, 78, C5,D5, DD, 7C2 
1560 DATA 7E,00,FE, 00, 28, 3E, DD, 7E, OC, 
FE, D2, D2, F3, 7D, DD, 838 
1570 DATA 7E,0B,FE, A0, D2,F3, 7, CD, 1B, 
7E,FE, 01, CA,F3, 7D, 908 
1580 DATA DD, 7E,00,FE,FF,C2, D9, 7D,DD, 
36,00, 00, DD, 66, 06, 7CC 
1590 DATA DD,6E, 05, DD, 56,04, DD, 5E, 03, 
DD, 4E, 09, 06, 00, DD, 5DC 
1600 DATA ZE, OA, CD, 06, 7E, CD, 06,84,D1, 
Ci,13,10,B1,C9, DD, 73C 
1610 DATA 7E,08,FE, 65,D2, 03, 7E, AF,C9, 
D6,64, C9, F5, DD, 7E, 904 
1620 DATA 0C, DD, 86, OA,FE, D2, D2, 14, 7E, 
F1,C9, F1,3E,D2, DD, 945 
1630 DATA 96,0, C9, 3E, 64, DD, 96, 09, DD, 
BE, OB, DA, 29, 7E, 3€, 6EE 
1640 DATA 01,C9,AF, C9, DD, 7E, OB, DD, 86, 
09,FE, A0, D2, 37, 7E, 839 
1650 DATA C9,06, A0, 90, 47, DD, 7E, 09, 90, 
4F,C9, DD, 7E, 08, DD, 795 
1660 DATA 86,09, FE, A0, D2, 53, 7E, DD, 7E, 
OA, DD, 46, 09, C9, 06, 730 
1670 DATA A0,90, 47, DD, 7E, 09,90, 47, DD, 
7E, 04, C9, DD, 7E, 0B, 746 
1680 DATA FE, 65, DA, 6C, 7E, DD, 46, 09,C9, 
3E,64, DD, 96,08, F5, 831 
1690 DATA E5,6F, 26, 00, 19,EB, Ei, 47, DD, 
7E,09, 90, 47,F1,C9, 798 
1700 DATA 32,89, 7E, DD, 7E, D, 3C,FE, 00, 
C2, 8€, 7E, AF, DD, 77, 7AC 
1710 DATA 0D,CD, CE, 84,09, DD, 75,07,DD, 
74,08, C9, DD, 7E, 0C, 717 
1720 DATA D6,32,6F, 26,00, 29, 19,5E, 23, 
56, CD, F9, 7D,6F, 26,58E 
1730 DATA 00, 19,C9,06,C7, 21, AB,EB, 11, 
38, 44, C5, 7D, 12, 13,554 
1740 DATA 7C,12,13,D5,CD, 26, BC, D1, C1, 
10, F1,C9, 06, C7, 21, 76F 
1750 DATA 64,00, 11, C8, 4B,C5, 70, 12, 13, 
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70,12, 13,01, 46,00, 3D7 
1760 DATA 09,C1,10,F2,C9, C9, C9,3E, 01, 
32,E3, 85, 32, DE, 85, 795 
1770 DATA 21, 19,54, 22,EB, 84, CD, 00, 7F, 
3A,EF, 84, 3C, FE, 96, 6EB 
1780 DATA D4,58, 7F,32,EF,84,C9, 3A,E4, 
85,FE, 02, CO, 3A, D2, 888 
1790 DATA 85,FE,01,C0,3A,EF,84,FE,8C, 
CO, 34,E5,85,FE, 01, BDE 
1800 DATA CB, AF, 32, D2,85, CD, 89, 79, CD, 
F1,83, CD, B5, 80, 21,933 
1810 DATA 98,3A,11,19,D6,01,03,00,3E, 
07, CD, 88, 82, 34, Di, 4FD 
1820 DATA 85,3C, 32,D1,85,FE,07,C0,Æ, 
01,32, DF, 85, C9, 34, 6E6 
1830 DATA E4,85,FE, 00, CA, 55, 7F, 3D, 32, 
E4,85, CD, B2, 78, 3€, 812 
1840 DATA 95,C9,3E,64,C9,34,E4,85,3, 
FE, 03, CA, 6A, 7F, 32, 78€ 
1850 DATA E4,85, CD, B2, 78,3E,64,C9,3E, 
96,C9, ES, 78, CD, AD, 93F 
1860 DATA BC,E1,FE,84,CB, C3, AA, BC, 34, 
F1,84, 3C,FE, 03, C2, 9BE 
1870 DATA 83,7F,AF, 32,F1,84, 21, 4C, 00, 
CD, CE, 84,01, D4, 53, 70C 
1880 DATA 09, 22, EB,84,C9,34,F3,84,3, 
FE, 03, C2,9E, 7F,AF, 7DF 
1890 DATA 32,F3,84,21,4C, 00, CD, CE, 84, 
01,F0, 52, 09, 22, EB,68E 
1900 DATA 84,C9,AF, 32,E3,85,3E,01,32, 
DE, 85, 21, 21,55, 22,623 
1910 DATA EB,84,CD, CE, 7F,3A,EF,84,3D, 
FE, 64, DC, 43, 7F, 32, 8A5 
1920 DATA EF, 84,C9, 34,E4,85,FE, 00, C0, 
3A,D2,85,FE,01,C8, 8F5 
1930 DATA 3A,EF,84,FE, 73,C0,3E,01,32, 
D2,85, CD, E3, 83, CD, 8A6 
1940 DATA B5, 80, 21,B6,58, 11,19,D6,01, 
03,00, 3€, 07, C3, 88, 4F8 
1950 DATA 82,06, 08, C5, CD, 7F, 78, 3€, 42, 
CD, E, BB, C2, 83, 80, 704 
1960 DATA 3A,CF,85,FE, 01, CA, 83,80, 34, 
E5,65,FE, 00, CA, 7C, 842 
1970 DATA 80,34, F0, 84,D6,03, 32, F0, 84, 
CD, 28, 78, C1, 10,D6, 7Ci 
1980 DATA 06,03,C5, CD, 7F, 78,3, 42, CD, 
1E, BB, C2, 83, 80, 34, 6B7 
1990 DATA CF,85,FE, 01, CA, 83,80, 3A,E5, 
85,FE, 00, CA, 7C, 80, 888 
2000 DATA CD,28,78,C1, 10, DE, 06,08,C5, 
CD, 7F, 78, 3E, 42, CD, 700 
2010 DATA 1E,BB, C2, 83,80, 34, CF,85,FE, 
01,CA, 83, 80, 3A,ES, 817 
2020 DATA 85,FE, 00, CA, 7C, 80, 34, F0,84, 
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C6,03, 32, FO, 84, CD, 833 
2030 DATA 28,78, C1,10,D6,AF, 32,E5,85, 
C3,C7, 77, Ei, CD, 28,869 
2040 DATA 78,03, C7, 77,E1,CD,C5, 83,21, 
64,00, 11,9F, C9, 01, 76E 
2050 DATA 30,00,3E,64,CD,88, 82, 21,89, 
87, 11,3E,EB, CD, A 1,682 
2060 DATA 82,06, FA, CD, AB,83,06, FA, CD, 
A8, 83,06, FA, CD, A8, BE7 
2070 DATA 83,06, FA, CD, AB,83,C3,60, 75, 
DD, 21, 14,86, 06, 05, 6B6 
2080 DATA DD, 7E,00,FE, OA, 38, 09, 0E, OA, 
91,0, 77,00, DD, 34, 5B2 
2090 DATA FF,DD, 28, 10,EC, DD, 21, 11,86, 
11,69, D6,06, 04, C5, 6B7 


.2100 DATA DS,DD,ES,DS, DD, 7E,00,21,10, 


00, CD, CE, 84, 01,50, 768 
2110 DATA 4E,09,D1,01,02,00, 3€, 08,CD, 
88,82, DD, Et, Di, C1,698 
2120 DATA DD, 23, 13,13,10,DB,C9,3E, 01, 
32,D4, 85, 3E, 19, 32, 52D 
2130 DATA D5,85,F, 32,F2, 84, 32,D7,85, 
C3, CE, 76, ED, 53, D9,95F 
2140 DATA 85,F5,C5,DD,E5,C5,DD, ES, 16, 
00, DD, 7E,00,FE, 00, BF7 
2150 DATA CA,84, 84, DD, 7E,0E,FE, 00, C2, 
84,81, 34, F2, 84,FE, BAB 
2160 DATA 00,C2, 84, 81,3, D4,85,FE, O1, 
CA, 84,81, 3A,DF, 85, 7C6 
2170 DATA FE,01, CA, 84,81, 3A,EF,B4, C6, 
08,DD, BE, 0B, D4, 36, 7F9 
2180 DATA 82,34, EF, 84,DD,96, 09, C6, 02, 
DD, BE, 0B, DC, 36, 82, 7AD 
2190 DATA 3A,F0,84,C6,12,DD,BE, 0C,D4, 
36,82, 34, FO, 84, DD, 844 
2200 DATA 96,04, C6, 08, DD, BE, 0C, DC, 36, 
82, 7A,FE, 04, C2, 84, 768 
2210 DATA 81,3E,01,32,F2,84,DD,E1,C1, 
ED, 5B, D9, 85, DD, 19, 883 
2220 DATA 10,8B,DD,E1,C1,F1,C9, C5, DD, 
ES, DD, 7E, 00,FE, 00, 9B4 
2230 DATA CA, FD, 81, DD, 7E,0€, FE, 00, C2, 
FD, 81, FD, 21,F5,84, 986 
2240 DATA 06,03, 16,00,FD, 7, 00,FE, 00, 
CA,F6, 81, FD, 7E,0E, 662 
2250 DATA FE,00, C2, F6,81, DD, 7E, 0B, DD, 
86,09, FD, BE, OB, D4, 8A3 
2260 DATA 36,82, DD, 7E,0B,D6, 02, FD, BE, 
0B,DC, 36,82, DD, 7E, 7AB 
2270 DATA 0C,DD, 86, OA, FD, BE, OC, D4, 36, 
82, DD, 7E, 0C, D6, 03, 70C 
2280 DATA FD,BE, 0C, DC, 36,82, 7A,FE, 04, 
C2,F6,81,CD, 09, 82, 868 
2290 DATA 11,11,00,FD, 19, 10,80, DD, Et, 
C1, ED, 5B, D9, 85, DD, 7FA 


2300 DATA 19,10,8C, C9, FD, 36,0E, 01,DD, 
7E,0F, 3D, DD, 77,0F, SCA 
2310 DATA FE,00, C2, 25,82, DD, 36,0E,01, 
FD, 36, 0E, 00, FD, 36, 5FD 
2320 DATA 00,FF,CD,D3,83,DD,E5, FD, ES, 
C5, CD, B5, 80, C1, FD, B4B 
2330 DATA Et, DD, Et, C9, 14,C9,DD,21,F5, 
84,06, 09, DD, 36, 00, 7DE 
2340 DATA 00,11, 11,00, DD, 19, 10,F5,C9, 
34,E4,85,FE, 00, CA, 651 
2350 DATA 5,82, FE, 01,CA,65,82,FE, 02, 
CA, 6D, 82, C9, 3E, 01, 750 
2360 DATA 32,D8,85,C3,FB, 7A, 3E, 02, 32, 
DB, 85, C3, 61, 78, 3E, 779 
2370 DATA 03,32, DB,85,C3, AB, 79,34, DB, 
85,FE, 01, CA, 28, 78, 785 
2380 DATA FE, 02, CA, 88, 7B,FE,03,CA, FD, 
79,C9, C5,E5,D5, ED, 46 
2390 DATA BO,E1, 11, 00,08, 19, 30,04, 11, 
50, C0, 19, EB,E1, C1, BE 
2400 DATA 09, 3D, CB, C3,88, 82, 7E,FE, 20, 
C2, A9, 82, 3E, 20,6, 7A5 
2410 DATA 2D,E5,D5,D5, 21, 10,00, CD, CE, 
84,01, 20, 4E,09, 01,585 
2420 DATA 02, 00,3E,08,D1, CD, FB, 82, Di, 
E1,13,13,23,7E,FE, 6DA 
2430 DATA 2A,C2, A1,82,23,C9, 7E,FE, 20, 
C2,D6, 82, 3E, 2D, D6, 7F2 
2440 DATA 2D,E5,D5,D5, 21, 10,00, CD, CE, 
84,01, 20, 4E,09, 01,585 
2450 DATA 02,00, 3E, 08,D1, CD, 88, 82, Di, 
E1, 13, 13,23, 7E,FE, 667 
2460 DATA 2A,C2, CE, 82,23,C9,C5,E5,C5, 
E5,D5, ED, BO,D1, 21, 9E0 
2470 DATA 00,08, 19, 30,04, 11,50, C0, 19, 
EB,Ei, C1,D5, ED, B0,68E 
2480 DATA D1,21,00,08, 19, 30,04,11,50, 
C0, 19, EB,E1,C1,09,517 
2490 DATA 3D,CB,C3,FB,82,AF,F5,06,00, 
0E, 00, CD, 32, BC, F1, 7A9 
2500 DATA 3C,FE, 10,C8,C3, 28, 83,21, 13, 
88,AF,ES, F5, 46, 4E, 759 
2510 DATA CD, 32, BC, F1,E1,3C,FE, 10,C8, 
23,C3, 30,83, CD, 06, B17 
2520 DATA BB, CD,68, 77,CD,06,BB,C3,06, 
BB, 00, 3€, 01, 32, E3, 6CD 
2530 DATA 85,AF, 32, F2, 84, 32,E5,85, 32, 
F3,84, 32,F1,84, 32, 7FA 
2540 DATA DE, 85, DD, 21,E4, 84, DD, 36, 00, 
01,DD, 36,08, 7D, DD, 755 
2550 DATA 36,0C, 88, DD, 36, 09, 08, DD, 36, 
0A, 18,21, 19,54, DD, 491 
2560 DATA 75,07, DD, 74,08, C9, 3E, OA, 32, 
C8,85, C9, AF, 32, 11,620 
2570 DATA 86, 32, 12,86, 32, 13,86, 32, 14, 





86,32, 15,86, C9, 78, 4F5 
2580 DATA FE,00,C8, 21,F4,01, 28, 7C, B5, 
20,FB, 10,F6,C9, 11,733 
2590 DATA 64,00, 21, AB,EB,01,46,00,3E, 
A0, C3, 33, 84, 21,64, 539 
2600 DATA 00,36, 00, 11,65,00, 01,50, 46, 
ED, B0, C9, C3, E3, 83, 5D2 
2610 DATA 3A,13,86,3C, 32, 13,86,11,01, 
00,C3, FE, 83, 34, 13, 47D 
2620 DATA 86,C6, 02, 32,13,66, 11,02,00, 
C3,FE, 83, 34,11,86,541 
2630 DATA 3C, 32, 11,86,11,64, 00, C3,FE, 
83,24, CD, 85, 19, 22,575 
2640 DATA CD,85, C9, ED, 43,08, 84, 01,00, 
00,F5, DS, ED, B0, D1, 813 
2650 DATA E5, 21,46, 00,19,EB, E1,F1,3D, 
C8, 18, EC, ED, 43, 23, 77E 
2660 DATA 84,01, 00,00,F5,E5, ED, BO,Et, 
01,46,00, 09, F1, 3D,65B 
2670 DATA C8, 18,EF,C5,F5,E5, ED, BO, El, 
01,00, 08, 09, 30, 04, 732 
2680 DATA 01,50, C0, 09,F1,C1, 3D, CB, 18, 
EA,C5,E5,D5, 1A,FE, 864 
2690 DATA 00,28, 1D, 7E,FE, 00, 28, 13,E6, 
55, 28, 04, 7E, E6, AA, 577 
2700 DATA 20,0F, 14, E6, AA, 18,06, 1A,E6, 
55,18, 01, 1A,4F, 7E, 44C 
2710 DATA B1,77,13,23,10,DA,E1,16,00, 
DD,5E, 09, 19, EB, E1, 668 
2720 DATA 01,46,00,09,C1,0D, C8, 18,C5, 
ED, 43, 89, 84,01, 00, 501 
2730 DATA 00,65, DS, ED, B0, Di, 21, 00,08, 
19,30,04, 11,50, CO, 5BF 
2740 DATA 19,EB,E1,01,46, 00, 09, 3D, CB, 
18,E4, 21, 4A, C9, CD, 637 
2750 DATA F9,7D,4F,06,00,09, DD, 7E,0C, 
06,32, FE, 00, CA, C7, 6D2 
2760 DATA 84,11,00,08,19,D2, C3, 84, 11, 
50, CO, 19, 3D, C2, B6, 5C0 
2770 DATA 84, DD, 74,02,DD, 75,01, C9,EB, 
21,00, 00,FE, 00, C8, 6C5 
2780 DATA 19,3D, C3, D2,84, 01, 02,03, 04, 
05,06, 07,08, 09, OA, 2A6 
2790 DATA 01,00, 00, 00,00, 67,90, 00, 00, 
OA, 1A, 00, 00,00, 00, 11C 
2800 DATA 00,00, 00, 00,00, 00, 00,6F, 94, 
00,00, 00, 00, 00, 00, 100 
2810 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 
96,91, 00, 00, 00, 00, 127 
2820 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 
00,00, BD, 91, 00, 00, 14E 
2830 DATA 00,00, 00, 00,00, 00, 00,00, 00, 
00,00, 00, 00,E4,91, 175 
2840 DATA 00,00, 00, 00,00, 00,00, 00, 00, 
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00,00, 00, 00, 00, 00, 000 

2850 DATA A4,92, 00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 136 

2860 DATA 00,00,64,93,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 0F7 

2870 DATA 00,00, 00, 00, 24,94, 00, 00, 00, 
00,00, 00, 00, 00, 00, 0B8 

2880 DATA 00,00, 00, 00, 00,00, E4, 94, 00, 
00,00, 00, 00, 00, 00, 178 

2890 DATA 00,00, 00, 00, 00,00, 00, 00, A4, 
95,00, 00, 00, 00, 00, 139 

2900 DATA 00,00, 00, 00, 00, 24, F9, 85, 23, 
22,F9, 85, 7E,FE, 00, 4E7 

2910 DATA CO,21,FB, 85, 22, F9, 85, 7E, C9, 
2A,E7,85, 23, 22, E7, 804 

2920 DATA 85,7E,FE, 00, C0, 21, E9, 85, 7E, 
22,E7,65, C9, 2A, F1, 840 

2930 DATA 85,23, 22, F1,85, 7E,FE, 00, C0, 
21,F3,85,7E, 22, F1, 7A6 

2940 DATA 85,C9, 00, 00,00, 00, 00, 00,00, 
00,00, 00, 00, 00, 00, 14E 

2950 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 

2960 DATA 00,00, 00, 00,00, 00, 73, 91,82, 
78, 70,96, 6D, 00, 00, 37E 

2970 DATA 00,5F,58,51,00, 00, 00, 00,00, 
02,01,03,02,03, 01,114 

2980 DATA 01,02,03,01,03,01, 02, 01,02, 
01,03,01,03, 02, 02, 01C 

2990 DATA 00,00, 00, 00,00, 00, 00, 00,00, 
00,00,E5, D2, 43, 4F, 249 

3000 DATA 4E,47,52,41,54,55, 4C, 41,54, 
49,4F, 4E, 53, 20, 2F, 434 

3010 DATA 2F,2A,62,F3,59,4F,55, 20, 41, 
52,45, 20, 41,20, 47, 48B 

3020 DATA 4F,4F, 44, 20,50, 49,52, 41,54, 
45, 2A, 46, EA, 50, 52, 4C3 

3030 DATA 4F,47,52, 41, 4D, 20, 41, 4E, 44, 
20,4, 55,53, 49, 43, 404 

3040 DATA 2A,97, EA, 42,59, 20, 4C,55, 43, 
20,47,55, 49, 4C, 4C, 4E7 

3050 DATA 41,55, 4D, 45, 2A, 3B,EB, 47,52, 
41,50, 48, 49, 43,53, 4C9 

3060 DATA 20,42, 59, 2A, 88, EB, 48, 45,52, 
56,45, 20, 47,55, 49, 4D7 

3070 DATA 4C, 4C, 41,55, 4,45, 2, 28, EC, 
44,45,53, 49, 47, 4E, ABB 

3080 DATA 20,31, 39, 39, 30, 2A, 71, EC, 43, 
4F,50, 59, 52, 49, 47, 497 

3090 DATA 48,54, 20, 42, 4C, 41,43, 4B, 20, 
53,50, 53,54, 45, 4D, 41E 

3100 DATA 2A,A8,E8,00,51,04, 00, 0B, 00, 
E2,E8, 2C, 51,04, 00, 465 

3110 DATA 0B,00,98, DE, 58,51,04, 00,08, 
00,D2, DE, 84,51, 04, 4C2 


3120 DATA 00,08, 00, OA, F6, 2E, 52,03, 00, 
0A,00,0F°F6, 2E, 52, 31D 
3130 DATA 03,00, 04, 00,80, F5, 4C,52,06, 
00,16, 00, D9,F5, 4C, 486 
3140 DATA 52,06, 00, 16,00,0D,E1,B0, 51, 
12,00, 07,00,9F, C9, DE 
3150 DATA 10,27, 30,00,64,00, 00, C0, 10, 
27,50, 00, 15, 00, E0, 307 
3160 DATA F6, 10, 27,50, 00, 12, 00,00, C0, 
10, 27, 08,00, CB, 00, 356 
3170 DATA 46,C0, 10, 27, 04,00, C8, 00, A9, 
E8,00, 51, 04,00, 0B, 400 
3180 DATA 00,E2,E8, 2C,51,04, 00,08, 00, 
B9,C5, 43,52, 45, 44, 4F2 
3190 DATA 49,54, 53, 20,33, 2A, DO, C5, 50, 
4F,57,45, 52, 20, 3, AED 
3200 DATA 3E,3E,3E, 2, 59, DE, 42, 4C, 41, 
43,48, 20,53, 59,53, 497 
3210 DATA 54,45, 4D, 20,31, 39, 39, 30, 24, 
30,30, 30, 30, 30, 30, 323 
3220 DATA 2A, 32, 2A, 30, 30, 24, 43,4F,50, 
59,52, 49,47, 48,54, 3C9 
3230 DATA 20,41, 43, 4B, 45,52, 4C, 49, 47, 
48,54, 20, 31,39, 38, 3C0 
3240 DATA 39,24, 47, 41, 4D,45,20,4F,56, 
45,52, 2A, 3, 20, 4D, 3AE 
3250 DATA 49,53,53, 49, 4F,4E, 20, 4F,56, 
45,52, 20, 3C, 2A, 4C, 403 
3260 DATA 45,56, 45, 4C, 20,31, 2A,3F,3F, 
3F,3F,3F,3F,3F, 24, 384 
3270 DATA 50,4C,45, 41,53, 45, 20, 41,43, 
43,45,53,53, 20, 43, EF 
3280 DATA 4F,44,45, 20, 3D, 30, 30, 3D, 30, 
2A,3F, 24, 3E, 3E, SE, 376 
3290 DATA 3E, 24,02, 06, 00, OA, 00, OA, 00, 
14,00, 02, 01,03, 14, 0B2 
3300 DATA 00,00,0F,0F, 00, 01,00, 00, 00, 
00,01, 0F, 02,00, 01, 032 
3310 DATA 00,00, 00,00, 06,0F, 02, 00,02, 
00,00, 00,00, 0€, OF, 034 
3320 DATA 02, 00,02, 00, 00, 14,00,00,0F, 
05,00, 02, 03, 03, EE, 122 
3330 DATA 02,19,0F, 32, 00,00, 00,06, 02, 
01,18,17,16, OA, 09, OBD 
3340 DATA 0F, 10, 12, 1A,0E, 03, DD, 7E, 0E, 
3C, DD, 77,0E, FE, 03, 464 
3350 DATA DA, 51,88, FE, 04, DA, SA, 88,FE, 
05,DA, 6C, 88, FE, 06, 846 
3360 DATA DA, 76,88,FE, 07, DA,6C,88,FE, 
08, DA, 5A, 88, DD, 36, 880 
3370 DATA 0E,00, DD, 36,00,FF, C9, 21, 10, 
27,00, 75,07, DD, 74,5EB 
3380 DATA 08,21,91,63, DD, 75,07, DD, 74, 
08,DD, 36, 09,03, DD, 5CB 
3300 DATA 36,04,0D, C9, 21,B8,63, DD, 75, 





07, DD, 74,08, C9, 21,5EE 
3400 DATA DF,63, DD, 75,07,DD, 74,08, C9, 
12,00,01,01,01, 02, 4D4 
3410 DATA 03,03,64,03,64,03,01,01,01, 
02,04, 00, 1E, 00, 43, 13E 
3420 DATA 00,54, 00, D9,01,0C, 15, 00,05, 
01,00, 00, 0C, 0D, 00, 16€ 
3430 DATA 00,05, 00, 00, 00,05, 01, 00,00, 
0C, D, 00, 00,05, 01, 02A 
3440 DATA 00,00,0C, D, 00, 00,05, 00,00, 
00,05, 00, 00, 00, 05,028 
3450 DATA FF,01,00,00,0C, 02, 00, 00,05, 
00,00, 00,05, 00, 00, 118 
3460 DATA 00,05,FF, 01, 7E,02,0C,05,00, 
04,9F, 00, 5C, OF, 05, 2A9 
3470 DATA 00,00,00,05,01,00,00,0C, 16, 
00,00, 05, 01,00, 00, 02E 
3480 DATA 0C,02, 00, 00,05,01,00,00,0C, 
0D, 00, 00,05, 01, 7E, OBi 
3490 DATA 02,00, 05,02, 50, 00,0C, 15,00, 
05,01, 38, 02, 0C, 05, 0D7 
3500 DATA 02, 47,00,0C, 15,00,05,00,00, 
00,05, 01, 00,00, 0C, 081 
3510 DATA 16,00,00,05,01, 00,00, 0C, 02, 
02,3F, 00,00, 15,00, 08C 
3520 DATA 05,01,00,00,0C, D, 00, 00,05, 
01,FA,01,0C,05,00, 131 
3530 DATA 04, 7F,00,0C,0F,05,01,DE, 01, 
0C,05, 00,04, 77, 00, 20F 
3540 DATA 5C,0F,05, 00,00, 00,05,01,00, 
00,0€, 16, 00, 00, 05, 09D 
3550 DATA 01,00, 00, 0C, 02, 00, 00,05, 01, 
00,00, 0C, OD, 00, 00, 02E 
3560 DATA 05,01, 00, 00,0C, 02, 00, 00,05, 
01,00, 00, 0C, 0D, 00, 033 
3570 DATA 00,05, 00,00, 00,05, 01, 00,00, 
0C,02, 00, 00,05, 01, 01F 
3580 DATA 00,00, 0C, 02,00, 00,05,01,00, 
00,0€, 0D, 00, 00, 05, 032 
3590 DATA 01,00, 00, 0C, 02, 00, 00,05, 01, 
AA,01,0C, 05,00, 04, 0DS 
3600 DATA 6A,00,5C,0F,05, 00,00, 00,05, 
01,00, 00, 0C, 16,00, 102 
3610 DATA 00,05,01,00,00,0C, 02, 00,00, 
05,01, 00, 00, 0C, 0D, 033 
3620 DATA 00,00,05,01,AA,01,0C,05,02, 
35,00, 0C, 15,00, 05, 11F 
3630 DATA 01,DE,01,0C,05,02,3B,00,0, 
15,00, 05, 00, 00, 00,154 
3640 DATA 05,01, 00, 00,0C, 16,00, 00,05, 
01,00, 00, 0C, 02, 02, 03E 
3650 DATA 38,00,0C,15,00,05, 01, 00,00, 
0C, 0D, 00, 00,05, 01, 081 
3660 DATA DE,01,0C,05,00, 04, 77,00,0C, 
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0F,05,01,FA,01,0C, 293 
3670 DATA 05,00, 04, 7F,00,8E,0F, 05,00, 
00,00, 05,01, BE, 00, EE 
3680 DATA 0C,05, 00,00,05,01,D5, 00, 0€, 
05,00, 00,05, 00, 00, 102 
3690 DATA 00,05,04,D5, 00,0C, 05, 00,00, 
05,01,00,00,0C, 16,114 
3700 DATA 00,00, 05, 00,00, 00, 05, 01,00, 
00,0€, D, 00, 00, 05, 029 
3710 DATA 0{,D5,00,0C, 05,00, 00, 05,00, 
00,00, 05,00, 00, 00, 0F1 
3720 DATA 05,FF, 01, 7E,02,0C,05, 02,50, 
00,00, 15,00, 05,00, 20E 
3730 DATA 00,00,05,01,00,00,0C, 16,00, 
00,05, 01,00, 00, 0C, 03A 


.3740 DATA 02,00, 00, 05,01, 00,00, 0C, 0D, 


00,00, 05,01, 7E, 02, A7 
3750 DATA 0C,05, 02, 50,00, 0C, 15, 00,05, 
00,00, 00,05, 00, 00, 0BE 
3760 DATA 00,05,04,FA,01,0C,05, 02,3F, 
00,00, 15,00,05,01, 17A 
3770 DATA 38,02, 0C,05,02,47,00,0C, 15, 
00,05, 00, 00, 00,05, OBF 
3780 DATA 01,7E,02,0C,05, 02,50, 00,0€, 
15,00, 05, 01,38, 02, 145 
3790 DATA 0C,05,02,47,00,0C, 15, 00,05, 
00,00, 00,05, 01,38, OBE 
3800 DATA 02,0€,05, 02, 47,00, 0C, 15,00, 
05,00, 00,04, 8E, 00, 114 
3810 DATA 5C,0F,05, 00,00, 00, 05, 00,00, 
00,05; 00, 00, 00, 05, 07F 
3820 DATA 00,00, 00,05,01,00, 00, 0C, 02, 
00,00, 05, 01,00, 00, 01A 
3830 DATA 0C,02, 00, 00,05, 01, 00, 00,0€, 
0D, 00, 00,05, 00, 00, 032 
3840 DATA 00,05, 01,00, 00, 0C, 02, 00,00, 
05,01, 00,00, 0C, 0D, 033 
3850 DATA 00,00, 05, 00, 00,00, 05, 01,FA, 
01,00, 05,02, 3F, 00, 158 
3860 DATA 0C, 15, 00,05, 00, 00,00, 05,01, 
00,00, 0C, 16,00, 00, 04E 
3870 DATA 05,01, 00,00, 0C,02, 00, 00,05, 
01,00, 00, 0C, 0D, 00,033 
3880 DATA 00,05,01,FA,01,0C,05,02,3F, 
00,0€, 15, 00,05, 00, 179 
3890 DATA 00,00,05,00,00,00,05, 01, AA, 
01,00, 05,02, 35,00, 0FE 
3900 DATA 0C, 15,00,05,01,DE, 01,0C,05, 
02,38, 00, 0€, 15,00, 175 
3910 DATA 05,00, 00,00,05,01,FA,01,0C, 
05,02, 3F,00,0C, 15, 179 
3920 DATA 00,05, 01,DE,01,0C,05, 02,38, 
00,0€, 15,00, 05,00, 159 
3930 DATA 00,00,05,01,DE, 01,0C,05, 02, 
38,00, 0€, 15, 00, 05, 159 


3940 DATA 00,00,04,77,00,5C,0F,05,00, 
00,00, 05,00, 00, 00, OFO 
350 DATA 05,00, 00,00, 05,00, 00, 00,05, 
01,00, 00,0C, 02, 00, 01E 
3960 DATA 00,05, 01,00, 00, 0C, 02,00, 00, 
05,01, 00,00, 0C, 0D, 033 
3970 DATA 00,00, 05,00, 00,00, 05,01, 00, 
00,0C,02,00,00,05,01E 
3980 DATA 01,00, 00, 0C, 0D, 00, 00,05, 00, 
00,00, 05,01, DE, 01, 104 
3990 DATA 0C,05,02, 38, 00,0C, 15,00, 05, 
00,00, 00,05, 01,00, 07A 
4000 DATA 00,0C, 16,00,00,05,01,00, 00, 
0C,02, 00, 00,05, 01, 03C 
4010 DATA 00,00, 0C, 0D, 00,00, 05,01, DE, 
01,00, 05,02, 3B, 00, 14C 
4020 DATA 0C, 15, 00,05, 00,00, 00,05, 00, 
00,00, 05,04, FA,01, 12C 
4030 DATA 0C,05, 02, 3F,00,0C, 15,00,05, 
01,38, 02, 0C,05, 02, 0C6 
4040 DATA 47,00,0C, 15,00,05,00, 00,00, 
05,01, 7E,02,0C,05, 104 
4050 DATA 02, 50,00, 34,0F,04, 00,00, 0C, 
11,05,00, 00,00, F4, 1AF 
4060 DATA FF,F5,D5,CD, A7,BC,D1,F1,FE, 
00,21, 0A,8F, CA, DD, A1A 
4070 DATA BC,ED,53, 20, 6F, 14, 32, 22, 6F, 
3E,01, 21,24, 8F, CD, 588 
4080 DATA BC, BC, 3E,01,21,2E,8F,CD,BF, 
BC, 3E, 02, 21,35, 8F, 602 
4090 DATA CD, BC, BC, 3€, 02, 21,39, 8F, CD, 
BF, BC, 3E, 03, 21, 40,658 
4100 DATA 8F,CD, BC, BC, 3E,03, 21, 47,6F, 
CD, BF, BC, 3E, 04, 21,687 
4110 DATA 4E,8F, CD, BC, BC, 36,05, 21,58, 
8F, CD, BC, BC, 3E, 06, 6F9 
4120 DATA 21,5F,8F,CD, BC, BC, 3€, 07, 21, 
69, 8F, CD, BC, BC, 3E, 735 
4130 DATA 08, 21, 70,8F,CD,BC, BC, AF, 32, 
1E, 6F, 32, 1F,6F, 32, 60D 
4140 DATA 1F,8E,3E, 01,32, 19, 6F, 2A, 20, 
8F,23, 22, 1C, BF, CD, 45€ 
4150 DATA A3,6D, 21,04,8F,01,00,81,11, 
EA,6C, C3,D7, BC, F3, 73C 
4160 DATA F5,D5,E5,C5, DD, ES, FD, ES, CD, 
01,8D, FD,Ei, DD, E1, COF 
4170 DATA C1,E1,D1,F1,FB, ED, 4D, 34, 19, 
6F, 30, FE, 00, CA, 0E, B8E 
4180 DATA 8D, 32, 19,6F,C9,06, 03, DD, 2A, 
14,8F,C5,DD,E5, 11,681 
4190 DATA 01,00, DD, 7E, 00, FE, 00, CA, 28, 
8D, CD, 7F,8D, 11,05, 5C8 
4200 DATA 00, DD,E1, Ci, DD, 19, 10,E5, DD, 
7E,00, 3C, 32, 19, 8F, 6DB 
4210 DATA DD, 23, DD, 22, 1A,6F, DD, 7E, 00, 





FE,FF, CO, AF, 32, 1F, 7C0 
4220 DATA 8E,C3, A3, 8D,3E,0F,FD, 21, 44, 
8E, C3, 64, 8D,3E, 0F,6BF 
4230 DATA FD, 21, 4D, 8E,C3,64, 8D,3E,0F, 
FD, 21, 71,6E, C3,64, 73€ 
4240 DATA 6D,F5, DD, E5,FD,ES, FD, 77,06, 
CD, Fi, 8D,FD,E1, DD, BAG 
4250 DATA E,F1,3D,FE,09,C2, 64, 8D, FD, 
36,06, 0F, C9, DD, 7E, 835 
4260 DATA 04,FE, 10, CA, 49,8D,FE, 11,CA, 
52, 8D, FE, 13, CA,5B, 7A0 
4270 DATA 8D,FD, 21, 44,8E, 3D,FE, 00, CA, 
F1,8D, 11,09, 00, FD, 717 
4280 DATA 19,C3,95, 8D, 2A, 1C,8F, 23, 7E, 
FE, 00, C2, BD, 8D, AF, 72D 
4290 DATA 32, 1E,8F, 32, 1F,6F, 32, 1F,8E, 
2A, 20, 8F, 23, 23, 7E, 438 
4300 DATA 22, 1C,8F,FE,64, CA, 2C, BE,FE, 
65, CA, 34, BE, DD, 2A, 7A9 
4310 DATA 22,6F, ED, 5B, 20,8F, DD, 19,30, 
FE, 00, CA, E2, 8D, 11, 723 
4320 DATA 02,00, DD, 19,C3,D4, 8D, DD, 6E, 
00, DD, 66,01, ED,5B,6F3 
4330 DATA 20,6F, 19, 22, 1A,6F, C9, DD, 7E, 
00, FD, 77,00, DD,6E,676 
4340 DATA 01,DD,66,02, CD, 24,8E, FD, 75, 
03, FD, 74,04, DD, 7E, 704 
4350 DATA 03, FD, 77,07,FD,36,08,00,FD, 
ES, Ei, 34, 1F,6F,FE, 762 
4360 DATA 00, CA, AA, BC, DD, 7E, 00,FE, 00, 
C2, A4, BC, C9, 34, LE, 7D2 
4370 DATA 6F,FE, 00, C8, 29, C9, 3€, 01,32, 
1E, 8F, C3, A3, 8D, 3E, 696 
4380 DATA 01,32, 1F,6F, 23, 7E, 32, 1F,8E, 
22,1, 8F,C3, A3, 8D, 521 
4390 DATA 00,01, 00, 00, 00,00,0F, 00,00, 
00,02, 00,00, 00, 05,017 
4400 DATA 0F,00, 00, 00, 03,00, 00, 00,00, 
0F,00, 00,00, 04, 00,025 
4410 DATA 00,00, 00, 00, 00,00, 00, 02,00, 
00,00, 00,0F, 00,00, 011 
4420 DATA 00,02, 00, 00,00,0F,0F, 00,00, 
00,02, 00,00, 00, 19,038 
4430 DATA 0F,00, 00, 00, 05,00, 00, 00,05, 
0F, 00, 00,00, 05, 00, 02D 
4440 DATA 00,00, 0F,0F,00,00,00, 05,00, 
00,00, 0F,0F, 00,00, 04 
4450 DATA 00,05, 00, 00,00, 00, 0F, 00, 00, 
00,03, 01,00, 00,00, 018 
4460 DATA 0F,00, 00, 00,06, 00, 00, 00,01, 
00,00, 00, 00, 00, 02, 018 
4470 DATA 00,00, 00, 0C, 00,00, 00,03, 02, 
00,00, 00, 0F, 00, 00, 020 
4480 DATA 00,00, 00, 00, 00,00, 00,00, 00, 
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00,00, 00, 00, 00, 00, 000 
4490 DATA 00,00, 00, 00,04, 02, 00, 00, 00, 
00,00, 00, 00, 00, 00, 006 
4500 DATA 00,00,00, 00,00, 00, 00, 03, 03, 
00,00, 00, 00, 00, 00, 006 
4510 DATA 00,07,00, 00,00, 00,00, 00, 00, 
00,08, 00, 00, 00, 03,012 
4520 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 00, 000 
4530 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 
00,00, 00, 00, 00, 03, 003 
4540 DATA 01,00,04,0A,FF,01,01,00, 04, 
82,14,01,01,14,FF, 2CB 
4550 DATA 01,01,0F,FF,02, 82,03, 01,03, 
03,FF, 03,02, 04, FF, 3AB 
4560 DATA 08,05,FF, 04,03, 50,01, 01, 14, 
02,01,04,01,07,01, 189 
4570 DATA 03,02,01,01,00,02,0A,FF,05, 
01,0F,FF,01,03, 01, 228 
4580 DATA 0A,01,04,00,04,05,FE, 01,02, 
01,0F,05,0A,FF, 02, 236 
4590 DATA 02,01,0C,01,0C,FF,01,0B,0C, 
01,01,01,01,01,01, 139 
4600 DATA 0D,0E,01,02,01,01,08,0C, 01, 
01,01,01,01,01,0D,O4A 
4610 DATA 0E,01,02,01,01,01,01,01,01, 
01,01,01,01,01,01,01D 
4620 DATA 01,01,01,01,01,01,01,01,01, 
01,01,04,01,01,01,012 
4630 DATA 01,01,01,05,06,07,01,01,01, 
01,01,08, 09, 04,01, 036 
4640 DATA 01,01,01,01,03,03,03,03,03, 
03,03, 03,02, 01, 01,020 
4650 DATA 01,01,01,0B,0C,01,01,0B,0C, 
01,02, 0D, 0E, OB, 0C, 068 
4660 DATA 0D,0E,01,01,01,01,0D,0E,01, 
01,01,01,02, 01, 01,042 
4670 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4680 DATA 01,01,01,01,01,01,01,01,04, 
01,01,01,01,01,01,00F 
4690 DATA 01,01,01,01,01,01,01,01,01, 
03,03, 03,03, 03, 03, 01B 
4700 DATA 03,03,01,01,01,02, 01, 01,08, 
0C,02,01,01,01,01,02A 
4710 DATA 01,0D,0E,01,01,08,0C, 01,01, 
01,01,01,01,0D,0E, 056 
4720 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,04,00F 
4730 DATA 01,01,01,01,01,01,01,01,01, 
01,01,01,01,01,01,00F 
4740 DATA 01,01,01,01,0F,10,01,01,01, 
01,01,01,11,12,03,04F 
4750 DATA 03,03, 03,03,03, 03,03, 00,00, 
00,00, 00,00, 00, 00,015 






Frédéric JULIEN 


Valable pour CPC 
664 et 6128 


Dans ce jeu, vous êtes un 
serpent qui se nourrit 
exclusivement de cœurs. Il se 
déplace dans un labyrinthe et 
doit éviter les têtes de monstres 
qui parsèment les couloirs de sa 
prison. Autre chose : le serpent 





s'allonge et ne doit pas se 


mordre la queue. Ce jeu est 


moins facile qu'il n'y parai 


puisqu'il y a de nombreux 


t 


pièges qui peuvent bloquer 


la situation. Les règles 


sont incluses. 

serpento 
10 RER MNEENNERNNERENE DLA 
+44 
20 '# REDIFINITION >LB 

Li 
30 TITI TIIEPEEETSEETIIIEEIETTISEE) )LC 
LEE: 
40 ! >LD 
50 SYMBOL AFTER 1 >HQ 


60 SYMBOL 38,255, 138,218,218,218,21 
6,255,255:SYMBOL 39,255, 196,213, 196 
,215,212,255,255:SYMBOL 40,255,98, 2 
38,106, 106,98,255,255:SYHB0L 41,255 
,34,174,43,170,162,255,255:SYMBOL 4 
2,255,35,175,167,175,163,255,255:SY 
MBOL 224,124, 254, 146, 124, 170, 130,23 
8,124 

70 SYMBOL 97,&10, 810, &X0, &X0, &X1111 
110,811011010,&X11000, &X1 1000 : SYHBO 
L 98,4111000, &X11000, &X 111100 : SYHBO 
L 99,810, &10, &10, &X0,&X11000, 811111 
00,4X1100110,&X1100110:SYHBOL 100, k 
11111110,811100110,8X1100110 


>PV 


80 SYMBOL 101,8X0,8X0,&X0, &X0,&X111 
11100,8X1100110,411100110,&11111100 
:SYHBOL 102,411100110,&X1100110,&X1 
1111100:SYNBOL 103,&X0,&X0,&X0, &XO, 
&X11110000,8X1100000, &X1100000, &X11 
00000:SYHBOL 104,8X1100010,8X110011 
0,&X11111110 

90 SYHBOL 105,8X0,8X0,&X0, &10,&X111 
11110,4X1100010,&11101000, &X1111000 
:SYXBOL 106,411101000,&11100010, 8&X1 
1111110:SYNBOL 107,4X0,&X0, &X0, &X0, 
&11100110,8X1100110,4X1100110, 81110 
0110:SYMBOL 108,&X1100110,&X1100110 
,#X111100 

100 SYMBOL 109,&X0,&X0,&X0, &X0, 8&X11 
00110,8X1100110,&X1100110,&11100110 
:SYHBOL 110,4X1100110,8X111100,8X11 
000:SYMBOL 111,4X0,8X0, &X0, &X0, &X11 
11110,8X11000, &X11000, &X11000 : SYMBO 
L 112,4111000, &X11000, &X1111110 

110 SYMBOL 113,8X0,8X0,8X0,8X0,8X11 
1100,8X1100110,8X1100000, &1111100:5 
YHBOL 114,8X110,8X1100110,&1111100: 
SYMBOL 115,8X0, &X0, &X0, &X0, &X111000 
,#X1101100,8X11000110,&X11000110:5Y 
HBOL 116,4111000110,8X1101100,8X111 


27 


)TL 





120 SYHBOL 117,8X0,8X0, BXO, &X0, &X11 
1100,8X1100110,&X11000000, £X 1100000 
0:SYHBOL 118,411100000,8X1100110, &X 
111100:SYMBOL 119,840, &XO, &XO, &XO, & 
X11111100,8X1100110,&X1100110,8X111 
1100:SYMBOL 120,8X1101100,&11100110 
,#111100010 

130 SYMBOL 121,8X0,&X0,8X0,&X0, &X11 
000110,8X11100110,8X11110110, &X1101 
1110:SYMBOL 122,8X11001110,8X110001 
10,8X11000110 

150 SYMBOL 143,8X11111111, &11000000 
1,8X10111101,&110101101,8X10100001, 
&110111111,8X10000001, 8111111111 


160 SYHBOL 123,8&X0,&X0,&X1111111,&X 
10000000, 4110000000, 8110000000, &X10 
000000, 4110000000 :SYMBOL 124, &X0, &X 
0,&X0,8X11111,&X10000, &X10000, &1100 
00,8X10000:SYMBOL 125,810, &X0, 40, & 
X10000000, 41111110, 8X100010,X10001 
0,&X111110 

170 SYMBOL 126,8X0,&X0,&X0, &X0, 8&X0, 
&11111000,8X1001011,&8X1001010:SYHBO 
L 127,8X0, &X0, &X0, &X0, &X0, &X0, &X100 
00000,84X100010:SYMBOL 255,811111111 


>QV 


)TF 


>NQ 


> 


)2Y 


1,8X1,8X1,8X1,4X11111111:SYMBOL 129 
8111110, &X10000, 4110000, 4110000, &X 
11111 


180 SYMBOL 130,4X111000, 41101100, &X CF | 


100110,8X100011,&X10100001:SYMBOL 1 
31,4X1111010,8X1000011,&X1000010, &X 
1000010, 4X1000011:SYMBOL 132, &X1100 
10,8X111010,8X101110,8X100110, &X101 
00010 
190 SYMBOL 133,8X11111000,8X100000, DEJ 
&1100111,&X100101,&X100111 
200 SYMBOL 48,8X1111110, &X1000010,& DFT 
11000010, &X1000010, &X1000010, &X1000 
010,8X1111110,&X0:SYMBOL 49,8X1100, 
&11100,8X1100,&X1100, &X1100,&X1100, 
&11100,&X0:SYMBOL 50,&X1111100,&X10 
0,8X100,4X1111100,&X1000000, &X10000 
00,8X1111100, &X0 
210 SYMBOL 51,4X1111100,8X100,&X100 >GW 
,4X111100,8X100,&1100, &X1111100, &XO 
:SYHBOL 52,8X1000100, &11000100, &X10 
00100,&X1111100,&1100,&X100, &X100, & 
X0:SYMBOL 53,4X1111100, &X1000000, &X 
1000000, 411111100,&X100,&X100,&X111 
1100, &X0 
220 SYMBOL 54,&X1111100,4X1000000, & DHF 
X1000000, &X1111100,&X1000100, &X1000 
100,8X1111100,8X0:SYMBOL 55,8X11111 
00,&X100, 1100, &X100, &X100, &X100, &X 
100:SYMBOL 56,4X1111100,&X1000100, & 
X1000100,4X1111100,&X1000100, &X1000 
100,8X1111100, &X0 
230 SYMBOL 57,4X1111100,8X1000100,& DRU 
11000100, 4X1111100,&X100, 41100, 8X11 
11100,8X0:SYMBOL 148,4110011000, 8X1 
1010010,411111111,8X11101,8X111000, 
11101100, 4X11000110,&X10 
240 SYMBOL 134, &X0,&X0, &XO, &X0, &X11 
000, 41111000, &X11000, &X1 1000: SYMBOL 
135, LX0, &X0, &XO, &X0, &X111100, &X110 
0110,8X1100110,&X111110:SYMBOL 136, 
&10, &X0, &XO, &XO, &X111100,4X1100110, 
&11100110,8X111100 
250 SYMBOL 137,4X11000,&X11000,&X11 DPY 
11110:SYMBOL 138,&X110,8X1100110,8X 
111100:SYHBOL 139,4X1100110,4X11001 
10,8X111100 
260 SYMBOL 174,4X10110,8X111101, &X1 
111111,8X11111111,8X10111110,&X1111 
11,8X1111111,8X1111000:SYMBOL 175,&k 
10,&X10000000, &X11000000, &X1 1 111000 
4110101100, &X11100000, &XO, &X0 
270 SYMBOL 168,4X0,&X0,&XO,&X0,&X0, DMX 
&111,8X111,8X1011:SYMBOL 169, 411000 


V 


NP 


V 


DX 








,X11000,8X111100,8X1111110,8X11111 
111,8X1101111,8X11000111, &110000010 
280 SYHBOL 170,8X0,EX0,2X100, X1010 
1111,8X11111111,4111111111,8X111111 
11,&X10101011:SYHBOL 171, 811000, 8X1 
011100,&X11111110,4X11111111,8X1111 
1111,8X11110111,8X10100011,8X1 

290 SYMBOL 172,4X100,8X111111,8X111 
1111,8X11111111,8X11111111,8X111110 
11,8X11000000, &X10000000: SYHBOL. 173 
,X1111000,8X11111000, &X11110000, LX 
11100000, &X11000000, &X 10000000 

300 SYMBOL 176,4X11111111, 81010010 DNL 
1,4X11111111:SYMBOL 34,1,1,1,1,1,1, 
7,7:SYMBOL 35,128, 128, 128, 128, 128, 1 
28,224,224:SYMBOL 36,127,7,7,1,1,1, 
1,1:SYMBOL 37,254, 224, 224, 128, 128, 1 
28,128, 128 

310 SYMBOL 177,8X1111,4X10111111,LX DA 
11111110,8X11111100,X11111000, &X10 
110000, &X0, &XO:SYMBOL 178,10,8X111, 
li111,8X11111,4X10111,8X111,LX1111 
,#X1111:SYMBOL 179,X11000000, X101 
10000,8X11111000, 4111111111, 2X10000 
001,&111010100,8X11111100, &X0 

320 SYMBOL 180, &X0, &XO, &XO, EXO, &X10 >GR 
000000, &X0,&X0,&X0:SYHBOL 181, LXO, & 
10,&X0,&X100001,&X110011, 4111111, &X 
110011,8X100000:SYMBOL 182, LXO, £X11 
1000,&X1101100,8X11111110,8X1010101 
1,4X11111011,8X10101110,8X11111110 
330 SYHBOL 183,4X110100, &X11100, AXO 
0001110,8X11111,X1110,8X11100,8X11 
1000,8X1111100:SYMBOL 184, X1111000 
0,&X1011000, &X11010000,&X1111000, &X 
11111000,8X111100,4X11000,£X11110:S 
YMBOL 252, &X0, &X0, &XO, &X0, 1111100, 
&11100110,8X110, 41111100 

335 SYMBOL 251,4X1100000,&11100110, >KP 
«11111110 

336 SYHBOL 140,LX0,&X0, EXO, X1100,& DKD 
1100110,8X11111110,8X1111111,2X1111 
1110:SYHBOL 141, &X0, &XO, &XO, &XO, &XO 
,#X0,8X10000000, LI0:SYMBOL 142, 8X11 
11111,8X110110,8X100111,8X110111,UX 
10011,8X110100, &X100, X100 

338 SYMBOL 249,8X10100000, LX1111000 >DN 
0,8X11100000, 4111101000, &X11111000, 
&X11110000, &X 11100000, &X1 1000000: SY 
MBOL 146,8X1,81111111,2X101011,2X0, 
&li1111111,8X11111,8X1101,8X11 

340 SYHBOL 185,410,4X10,&X11,8X11,& DGF 
I1.&X1,8X0,&XO:SYMBOL 186,2X1110100 


VV 


DR 


V 


CU 


V 


EG 





28 





,X100110,2X101100,8X111000,8X11111 
000,&111100000, &KO, &XO:SYMBOL 254, k 
10,&X0, &XO, &XO,&X11110, 8X1100, &X110 
0,8X1100:SYHBOL 253, &X11001100, &X11 
001100, &X1111000 

350 DATA 26,22,2e,0b,cd,75,bb,3e  DYX 
360 DATA ae,cd,5a,bb,3e,af,cd,5a  )2T 
370 DATA bb,3e,80,cd,5a,bb,26,22  32E 
380 DATA 2e,0c,cd,75,bb,3e,ad,5a  )ZU 
390 DATA cd, 5a, bb, 00, 00, c9 DTF 
400 DATA 26,22,2e,0b,cd,75,bb,3e  DYT 
410 DATA b2,cd,5a,bb,3e,b3,cd,5a  >ZZ 
420 DATA bb,3e,b4,cd,5a,bb,26,22  2Q 
430 DATA 2e,0c,cd,75,bb,3e,bi,cd  >ZN 
440 DATA 5a, bb, c9 >LP 


| 450 DATA 3e,00,06,00,cd,4d,bc,c9  DYR 


460 DATA 3e,00,06,ff,cd,4d,bc,c9  >ZG 
470 MEMORY &GFFF )LF 
480 FOR i=1 TO 89:READ v$:POKE &6FF >XH 
F+i,VALO"&M4VS8):t=t+VAL("R® +8) :NEX 

Ti 

490 RUN"SERPENTO. 001 0H 


serpento 991 __ 


LOUMRRRRRRANERERRERNNNNNNEANNEENNS DFA 
HH1# 


2'4 FREDERIC JULIEN >FB 
# 

3°: )FC 
# 

1": PRESENTE >FD 
Li mai 

5 "4 ëe ne … DFE 

64  SERPENTO DFF 
| ps 

T'# , >FG 





BAR enter su >FH 
Hit 

9 MODE 1:RUN 2040 >LJ 
10 HODE 1:1INK 0,0:BORDER O:INK 1,2 DJR 
: INK 2,26: INK 3,6:VIE=4:TABL=1:DIM 
1(400),Y(400) 

20 PEN 1:FO0R a=28 TO 39 STEP 2:LOCA >MG 
TE A,1:PRINT CHR$(214) :NEXT:PEN 2:F 

OR A=29 TO 39 STEP 2:LOCATE AÀ,1:PRI 

NT CHR$(215):NEXT:PEN 1:FOR a=28 TO 

39 STEP 2:LOCATE A,24:PRINT CHR$ (2 
13):NEXT:PEN 2:FO0R A=29 TO 39 STEP 
2:LOCATE À,24:PRINT CHR$(212) :NEXT 
30 PEN 1:FO0R A=2 TO 23 STEP 2:LOCAT DFJ 
E 27,A:PRINT CHR$(214) :NEXT:PEN 2:F 


OR A=3 TO 24 STEP 2:LOCATE 27, A:PRI 
NT CHRS(213):NEXT:PEN 1:FOR A=2 TO 
23 STEP 2:LOCATE 40,A:PRINT CHR$(21 
S):NEXT:PEN 2:FOR A=3 TO 24 STEP 2: 
LOCATE 40,A:PRINT CHR$(212) :NEXT 
40 PEN 3:F0R A=1 TO 26:LOCATE À, 1:P 
RINT CHR#(143):NEXT:FOR A=1 TO 26:L 
OCATE A, 24:PRINT CHR$(143) :NEXT:FOR 
A=1 TO 24:LOCATE 1,A:PRINT CHR$(14 
3):NEXT:FOR A=1 TO 24:LOCATE 26, A:P 
RINT CHRS(143):NEXT:WINDOV #1,2,25, 
23,2:PAPER #1,0:CLS4#1 
50 MOVE 435,345,3::TAG:PRINT CHR$(9 
7)+CHR$ (99) +CHR$ (101)+CHR$ (103) +CHR 
#(105)+CHR$ (99) +CHR$ (109) ; :HOVE 433 
,328,2:PRINT CHR$(98)+CHR$ (100) +CHR 
#(102)+CHRS$ (104) +CHR$ (106) +CHR$ (100 
)+CHRS (108); 
60 MOVE 435,300, 3:PRINT CHR$(113)+C 
HR$(117)+CHR$(115)+CHR$(119)+CHR$ C1 
05): :MOVE 433,284, 2:PRINT CHRS(114) 
+CHRS(118)4CHR$(116)+CHR$ (120) +CHR$ 
(106); 
70 MOVE 435,263, 3:PRINT CHR$(109)+C 
HRS(111)+CHR8 (105) ;:HOVE 433, 246, 2: 
PRINT CHR$(110)+CHR$(112)+CHR$ (106) 


, 

80 HOVE 435,180,3:PRINT CHR$(101)+C 

HR#(115)+CHR$(121)+CHR$(107)+CHR$(1 

13); :HOVE 433,165,2:PRINT CHR$(102) 

+CHR#(116)+CHR$(122) +CHR$ (108) +CHR$ 

(114) ;:GO0T0 710 

90 TAGOFF:PEN 3:LOCATE 29, 18:PRINT 

CHR$(123)+CHR$ (124) +CHR$ (125) +CHR$( 

126)+CHR$(127) :LOCATE 29, 19:PEN 2:P 

RINT CHR$(255)+CHR$(129)+CHR$ (130) + 

CHR$(131)+CHR$(132)+CHR$ (133) 

100 PEN 1:LOCATE 32,21:PRINT CHR$({ 

34)+CHR$(135)+CHR$ (136) +CHR$(135) :P 

EN 3:LOCATE 32,22:PRINT CHR$(137)+C 

HR#(138)+CHR$ (139) +CHR$ (138) : TAGOFF 

:GOSUB 1070 

EUR TTITITINI TI TENTE NTI TT IT 

CPE 

120 '# 
4 

KR TT TITI TITI EIIITIIIIE 

Hs 

150 nM=70:nc={5:nd=9:ta=1 

250 CH=CHT 

255 EVERY 50,0 GOSUB 2000 

260 x=320:y=206:1=2:1=1 

270 x(1)=320:y(1)=206 


BOUCLE PRINCIPALE 


V 


LN 


v 


YF 


JUL 








290 s=i >PG 
320 ! )RF 
330 TAG )TE 
350 ? )RJ 
370 GRAPHICS PEN 1,0:GRAPHICS PAPER DER 
0 
380 en=n:e=J0Y(0):1F e=6 OR e=5 THE )CE 
N 380 ELSE IF e=16 THEN 560 
390 IF e>0 AND e(9 THEN IF e<>m THE >WD 
N IF ABS(m-e)(>1 AND ABS (m-e)O4 T 
HEN s-e 
400 ! RE 
410 ax=x:ay=y )YA 
420 x=x+164(m-4)-16#(m=8) >TK 
430 y=y+164(m=2)-164(m=1) >TD 
431 IF BC1 THEN MU=REMAIN(O):B=BT:T DUF 
AG:E1:G0T0 580 
440 t=TEST(x+8,y):1F t=3 THEN x=ax: )2F 
y=ay:a=en:G0TO 380 
450 IF T=-2 THEN FOR K=50 TO 30 STEP >VH 
-2:SOUND 4,K,1,15:SOUND 4,K#1.5,1, 
15:NEXT :L=L+3:CH=CH-1 : SC=SC+5 : MOVE 
520,293,3:PRINT SC: :G0SUB 2180:G0T0 
480 
460 IF t=1 THEN 560 >HB 
470 MOVE x(l-L+1),Y(I-L+{):PRINT " DA 
LA 
480 1=1+1:XC1)=X:YC1)=Y )TE 
490 MOVE AX,AY,1:PRINT CHR$(202);  >BQ 
500 MOVE X,Y,1:PRINT CHR$(227); )ZX 


510 IF CH=0 THEN SC-SC+B:MOVE 520,2 BJ 
93,3:PRINT SC; :TABL=TABL+1:MOVE 545 
,337:PRINT TABL; : TAGOFF :MU=REMAIN (0 
):GOSUB 2320:CLS#1 :GOTO 711 

520 GOTO 380 >2E 
530 READ Li,L2,R:1F Li=0 THEN RESTO DPT 
RE:GOTO 530 

540 SOUND R,L1,5,15,1, 1:SOUND R+2,L DXY 
2,3,15,1, 1:RETURN 

550 DATA 60,100,66,40, 110,2,70,120, DCE 
2,45, 130, 2, 100, 140, 2,0, 0, 0 

560 SOUND 129,0:SOUND 130,0:SOUND 1 DFY 


32,0 
580 TD 
590 FOR K=1 TO 1-L+i STEP -1 JU] 


600 MU=REMAIN(O):B=BT:EI:MOVE X(K), DDJ 
YUK):PRINT CHRS (238) ; 

610 FOR J=15 TO 3 STEP -2:SOUND 17, DDU 
1000,1,3,0,0,10:SOUND 10,500, 1,3,0, 
0,30:NEXT 

620 MOVE XUK),YCK):PRINT " "; >XH 
630 NEXT DEE 
640 TAGOFF:LOCATE 33, 15:PRINT B:VIE DTF 





29 








=VIE-1:PEN 3:LOCATE 31,10:PEN 3:PRI 
NT VIE:G0T0 2990 
680 IF NO-0 THEN N-0:N02-0 ELSE N=1 
:1F FLAG2-1 THEN NO2=N0-2 ELSE N02- 
NO 
690 ? >TF 
700 RETURN >ZC 
710 PEN 1:MOVE 545,337:PRINT TABL:: >XQ 
MOVE 520, 293:PRINT SC; :MOVE 480,255 
:PRINT VIE: :TAGOFF 
711 GOSUB 770 »JC 
720 READ A,0,PN,L,C:1F A=-1 THEN 90 >QB 
ELSE LOCATE A,0:PEN PN:PRINT STRIN 
G$(L,C):G0TO 720 
IPL MR TTEITII TITI TITI TTL ITS) 
#43 
725 "4 
+ 
726 "ANNÉFENNIEENESNNEENNENÉNNENNE TT 
Hi 
730 DATA 12,2,3,14,207,3,3,3,5,207, 
9,3,3,1,207,25,3,3,1,207,3,4,3, 2, 20 
7,9,4,3,1,207,12,4,3,12,207,25,4,3, 
1,207,3,5,3,2,207,6,5,3, 2, 207,9,5,3 
,1,207,23,5,3,1,207,25,5,3,1,207,3, 
6,3,2,207,6,6,3, 2,207,9,6,3,1, 207, 2 
3,6,3,1,207,25,6, 3, 1, 207 
740 DATA 9,7,3,1,207,12,7,3,7,207,2 
3,7,3,1,207,25,7,3,1,207,3,8,3,7,20 
7,12,8,3, 7,207, 23,8, 3,1, 207,25,8,3, 
1,207,3,9, 3, 7,207, 12,9, 3, 7,207, 23,9 
,3,1,207,25,9,3, 1,207, 21, 10,3, 3,207 
,25,10,3,1,207,10,11,3,7,207,21,11, 
3,1,207,25,11,3,1, 207 
750 DATA 3,12,3,2, 207,6, 12, 3,2, 207, 
10,12,3,1,207,25,12,3,1,207,3,13,3, 
2,207,6,13,3,2,207,10,13,3,4,207,16 
,13,3,1,207,18,13,3,1,207,25,13,3,1 
,207,3,14,3,2,207,6,14,3,2,207,10,1 
4,3,4,207,16, 14, 3,1,207,18, 14,3, 1,2 
07,21,14,3,3,207,25,14,3,1,207 
760 DATA 3,15,3, 2, 207,6, 15,3, 2,207, 
16,15,3,1, 207,18, 15,3, 3, 207,23, 15,3 
1,207, 25,15, 3,1, 207,3, 16, 3,2, 207,6 
16,3, 2, 207,16,16,3, 1,207, 20,16,3,1 
,207,23,16,3,1,207,25,16,3,1,207,3, 
17,3,2,207,6,17,3,6,207,16,17,3,1,2 
07,20,17,3,1,207,23,17,3,1,207,25,1 
7,3,1,207 
765 DATA 3,18,3, 2, 207,16, 18,3,5, 207 
,23,18,3,1,207,25, 18, 3,1, 207,3, 19,3 
4,207, 10,19, 3,2, 207, 23,19,3,1,207, 
25,19,3,1,207,3, 20, 3,9, 207, 23, 20,3, 
1,207, 25, 20, 3, 1, 207,23, 21,3, 1,207, 2 


L "4 
ee 
S 


TABLEAU No 1 


>GA 





5,21,3,1,207,3,22,3,9,207,13,22,3,1 
1,207,25,22, 3, 1,207 

766 DATA 5,4,2,1,228,6,7,2,1,228,22 DM 
,11,2,1,228,11,12,2,1,228,23,13,2,1 
,228,5,16,2,1,228,19,16,2,1,228,15, 
23,2,1,228,8,18,1,1,224,9,23,1,1,22 
4,24,12,1,1,224,-1,0,0,0,0 

LLC ELLE LES LEE EEE LL EEE ELLES LL TE 
#3 ; + 





)TF 
790 D »TG 
CT 

800 IF TABL:1 THEN SYMBOL 207,239,2 DRY 
30,230, 0,254, 254, 254, 0:CHT=8:B:55:B 
T=55:RESTORE 730 

610 IF TABL=2 THEN SYMBOL 207,127,1 DUH 
57,200, 226,62, 136,35, 255:CHT=9:B=30 
:BT=30:RESTORE 900 

811 IF TABL=3 THEN SYMBOL 207,255,1 >AQ 
65,165, 189, 189, 165, 165, 255:CHT=10:B 
=41:BT=41:RESTORE 2250 

812 IF TABL=4 THEN SYMBOL 207,255,2 )AA 
19,153, 255, 153,255, 129, 255:CHT=10:B 
=41:BT=41:RESTORE 3080 

813. IF TABL=S THEN SYMBOL 207,255,1 DAT 
57,183,231,205,153,253,255:CHT=12:B 
=40:BT=40:RESTORE 3350 

814 IF TABL:6 THEN SYMBOL 207,255,1 DAJ 
29,191, 189, 189,189, 161,255:CHT=13:B 
=70:BT=70:RESTORE 3450 

815 IF TABL=7 THEN 3510 





850 ŒTITITIIIIIIIIIIIIIIIIII III 


LIL LE] 

900 DATA 2,2, 3,24, 207, 2, 3,3,24, 207, 
2,4,3,1,207,20,4,3,6, 207, 2,5,3, 1, 20 
7,21,5,3,5,207,2,6,3,1,207,6,6,3, 1, 
207,9,6,3,1,207, 22,6,3,4,207,2,7,3, 
1,207,6,7,3,1,207,9,7,3,1,207,22,7, 
3,4,207 

910 DATA 2,8,3,1,207,6,8, 3,1, 207,7, 
8,1,1,224,9,8,3,2,207,25,8,3,1,207, 
6,9,3,4, 207, 12,9, 3,2, 207,25,9,3, 1,2 
07,2,9,3,1,207,6, 10,3, 2, 207,8, 10, 1, 
1,224,11,10,3,4,207, 22, 10,3, 1, 207,2 
5,10,3,1, 207 

920 DATA 6,11,3, 2,207, 10,11,3,2,207 DAE 
,14,11,3,2,207,22,11,3,4,207,2,12,3 
,1,207,9,12,3,3, 207, 14, 12,3, 3, 207, 2 





,10,3,1,207,2,11,3,1,207,6,12,3,1,2 
07,2,13,3, 1,207, 8, 13,3, 4,207, 14,13, 

3,4, 207, 20, 13,3, 1,207, 24, 13,3, 1, 207 
930 DATA 2,14,3,1,207,20, 14,3,1,207 DLU 
,24,14,3,1,207,2,15,3,1,207,8,15,3, 
10,207, 20, 15,3,1,207,22,15,1,1,224, 
24,15,3,1,207,25,15,1, 1,228, 2, 16,3, 
1,207,9,16, 3,3, 207,14,16, 3, 3, 207, 20 
,16,3,5, 207 
940 DATA 10,17,3,2,207,14,17,3,2, 20 DYP 
7,21,17,3,4,207,11,18,3, 1,207, 14,18 
,3,1,207,22,18,3, 3,207, 2, 17,3, 1,207 
,2,18,3,1,207,2,19,3,1,207,2, 20,3, 1 
,207,2,21,3,9,207,12,21,3, 11,207, 2, 
23,3,9, 207, 12, 23,3, 11, 207 
950 DATA 2,22,1,1,224,11,23,1,1,224 DKM 
,24,22,1,1,224,23,10,2,1,228,7,7,2, 
1,228,9, 11,2, 1,228, 12, 12, 2, 2,228, 12 
,17,2,2,228,6, 22; 2,1,228,17,22,2,1, 
228, -1,0,0,0,0 

960 'HARRARARARANRRNNARANANNNNIIANE 
Ha < EP ace 

970 '# GAME OVER 

+ 

080 'HSNNENNNNENNNENNNENNNNENNENNNSE 
ILE: 

990 MU=REMAIN(O):CLS#1:PEN 1:LOCATE DPJ 
2,10:PRINT CHR$(150)+CHRS (154) +CHR 
#(156) :LOCATE 2,11:PRINT CHRS(149): 

PEN 2:LOCATE 2,12:PRINT CHR$(149)+C 
HRS(151)+CHR8 (156) :PEN 3:LOCATE 2,1 
3:PRINT CHRS(147)+CHR$(154)+CHR$ (15 

3) 

1000 PEN 1:LOCATE 5,10:PRINT CHRS(1 DHJ 
50)+CHR#(154)+CHRS (156) :LOCATE 5,11 
:PRINT CHRS(149) :LOCATE 7,11:PRINT 
CHRS(149):PEN 2:LOCATE 5,12:PRINT C 
HR#(151)+CHRS(154)+CHR$(157):PEN 3: 
LOCATE 5,13:PRINT CHR$(145) :LOCATE 
7,13:PRINT CHR$(145) 

1010 PEN 1:LOCATE 8,10:PRINT CHR$C1 DNR 
50)+CHR$(158)+CHR$ (156) :LOCATE 8,11 
:PRINT CHR$(149)+CHR$ (149) +CHR$ (149 
):PEN 2:LOCATE 8,12:PRINT STRING$(3 
,149):PEN 3:LOCATE 8,13:PRINT STRIN 
G#(3,145) 

1020 PEN 1:LOCATE 11,10:PRINT CHRS( 
150)+CHR$(154)+CHR$ (157) :LOCATE 11, 
11:PRINT CHR$(149):PEN 2:LOCATE 11, 
12:PRINT CHRS(151)+CHR$(157):PEN 3: 
LOCATE 11,13:PRINT CHR$(147)+CHR$ (1 
54)+CHR$ (157) 

1030 PEN 1:LOCATE 15,10:PRINT CHRS( DFJ 


V 


XD 


30 


150)+CHR$(154)+CHR$ (156) :LOCATE 15, 
11:PRINT CHR$(149) :LOCATE 17,11:PRI 
NT CHR$(149):PEN 2:LOCATE 15,12:PRI 
NT CHR$(149):LOCATE 17,12:PRINT CHR 
$(149):PEN 3:LOCATE 15,13:PRINT CHR 
$(147)+CHR$(154)+CHR$ (153) 
1040 PEN 1:TAG:HOVE 270,248,1:PRINT >LM 
CHRS(211)+CHR$(209) ; :HOVE 270,245: 
PRINT CHR$(211)+CHR$ (209) : :MOVE 270 
,235:PRINT CHR$(211)+CHR$ (209) ; : MOV 
E 270,225,2:PRINT CHR#(211)+CHR$ (20 
9);:MOVE 270,213,3:PRINT CHR$(205)+ 
CHRS (204) ; 
1050 TAGOFF:PEN 1:LOCATE 20,10:PRIN DRT 
T CHR$(150)+CHR$(154)+CHR$ (157) :LOC 
ATE 20,11:PRINT CHR#(149):PEN 2:L0C 
ATE 20,12:PRINT CHR$(151)+CHR$(157) 
PEN 3:LOCATE 20,13:PRINT CHR$(147) 
+CHR$(154)+CHR$ (157) 
1060 PEN 1:LOCATE 23,10:PRINT CHR$( 
150)+CHR$ (154) +CHR$ (156) :LOCATE 23, 
11:PRINT CHR#(149) :LOCATE 25,11:PRI 
NT CHR#(149):PEN 2:LOCATE 23,12:PRI 
NT CHR$(151)+CHR$ (158) +CHR# (153) :PE 
N 3:LOCATE 23,13:PRINT CHR$(149)+CH 
R$(149) 
1061 WHILE INKEY$C)"":WEND:CALL &BB >KJ 
06:RUN 


)AU 


)YG 





1070 PEN 2:LOCATE 29,13:PRINT STRIN >B 
G$(9,176):PEN 1:LOCATE 29, 12:PRINT 
CHR# (168) +CHR$ (169) +CHR$ (170) +CHR$( 
171)+CHR$(172)+CHR$(173) :LOCATE 34, 
11:PRINT CHR$(174)+CHR$(175) 

1080 PEN 1:LOCATE 36,17:PRINT CHRSC )YA 
34)+CHR$(35):LOCATE 36,18:PRINT CHR 
$(36)+CHR$(37) :LOCATE 29,21:PRINT C 
HR$(34)+CHR$(35) :LOCATE 29,22:PRINT 
CHR$(36)+CHR$ (37) :LOCATE 36,9:PRIN 

T CHRS(34)+CHR$(35) :LOCATE 36, 10:PR 

INT CHR$(36)+CHR$ (37) : 

1090 LOCATE 38,14:PRINT CHR$(43):LO >GN 
CATE 31,17:PRINT CHR$(43):LOCATE 30 
,6:PRINT CHR$(43):LOCATE 37,21:PRIN 

T CHRS(34)+CHR$ (35) :LOCATE 37,22:PR 

INT CHRS(36)+CHR$ (37) :LOCATE 36, 3:P 
RINT CHRS(43):LOCATE 38,7:PRINT CHR 

$ (43): TAG:RETURN 

2000 DI:TAGOFF:LOCATE 33,15:B=B-1:P DL 





RINT B:EL :TAG:RETURN 
2010 Waxsx 
LEE: 
2020 ! 
sl 
2030 
Hi 
2040 INK 1,0: INK 2,0: INK 3,0:CLS:SY QU 
MBOL 207, 127, 157,200, 226,62, 136,35, 
255:INK 0,0:BORDER O:RESTORE 2051 
2050 READ A,0,PN,L,C:1F A=-1 THEN P DHU 
EN 1:FOR a=2 TO 39 STEP 2:LOCATE À, 
24:PRINT CHRS(214) :NEXT:PEN 2:FOR À 
=3 T0 39 STEP 2:LOCATE A, 24: PRINT C 
HR#(215):NEXT:GOTO 2101 ELSE LOCATE 
A,O:PEN PN:PRINT STRINGS(L, C) :GOTO 
2050 
2051 DATA 11,16,2,1,137,13,16,2,1,2 DXU 
53,14,16,2,1,116,15,16,2,1,108,16,1 
6,2,1,106,17,16,2,1,120,11,17,3,1,2 
52,13,17,3,1,111,14,17,3,1,121,15, 1 
7,3,1,113,16,17,3,1,97,17,17,3,1,11 
9,18,17,3,1,107 
2052 DATA 19,17,3,1,117,20,17,3,1,9 >GU 
7,21,17,3,1,111,22,17,3,1, 115,23, 17 
,31,121,24,17,3,1,113, 11,18, 2, 1,25 
1,13, 18,2, 1,112, 14,18, 2,1, 122,15, 18 
,21,114,16,18,2,1,98, 17,18, 2, 1, 120 
,18,18,2,1,108, 19,16, 2, 1,118 
2053 DATA 20, 18,2, 1,98,21,18,2,1,11 D2ZR 
2,22,18,2,1,116, 23,18, 2,1, 122, 24,18 
121,114 
2060 DATA 1,1,3,4,207,6,1,3,4,207, 1 DCA 
1,1,3,4,207,21,1,3,4, 207, 26,1, 3, 4, 2 
07,31,1,3,5,207,37,1,3,4,207,1,2,3, 
1,207,6,2,3,1, 207,11, 2,3, 1, 207, 14, 2 
,3,1,207,16, 2,3, 1,207, 19,2,3,1,207, 
21,2,3,1, 207, 26,2,3,1, 207, 29, 2,3,1, 
207,33, 2, 3, 1,207, 37,2,3,1,207, 40,2, 
3,1,207 
2070 DATA 16,1,3,4,207,1,3,1,1,207, 
6,3,1,1,207,11,3,1,4,207, 16,3, 1,4, 2 
07,21,3,1,1,207,26,3,1,1,207, 29,3, 1 
,1,207,33,3,1,1,207,37,3,1,1, 207, 40 
131,1,207,1,4,1,4,207,6,4,1,3,207, 
11,4,1,1,207,13,4,1,1,207,16,4,1,1, 
207,21, 4, 1,3, 207 
2080 DATA 26,4,1,1,207,29,4,1,1,207 DPZ 
,33,4,1,1,207,37,4,1,1,207,40,4,1,1 
,207,4,5,1,1,207,6,5,1,1,207,11,5,1 
,1207,13,5,1,1,207,16,5,1,1, 207,21 
,5,1,1,207,26,5,1,1,207,29,5,1, 1,20 
7,33,5,1,1,207,37,5,1,1,207,40,5,1, 





ANHANFENTES 


)XH 





1,207 
2090 DATA 4,6,2,1,207,6,6,2,1,207,1 >XT 
1,6,2,1,207,13,6,2,1,207,16,6,2,1,2 
07,21,6,2,1,207,26,6,2,1,207,29,6,2 
,1,207,33,6,2,1,207,37,6,2,1,207, 40 
»6,2,1,207,1,7,2,4,207,6,7,2,4,207, 
11,7,2,1,207,13,7,2,1,207,16,7,2,1, 
207,21,7,2,4,207 
2100 DATA 26,7,2,1,207,29,7,2,1,207 
,33,7,2,1,207,37,7,2,4,207,9,13,1,2 
2,207,9,20,1,22,207,11,15,3,1,134,1 
3,15,3,1,254,14,15,3,1,115,15,15,3, 
1,107,16,15,3,1,105,17,15,3,1,119, - 
1,0,0,0,0 
2101 PRINT CHR$(23)CHR$ (1) ; : TAG: MOV 
E 150,230,2:PRINT"FREDERIC JULIEN 1 
989"; :MOVE 152,232,3:PRINT"FREDERIC 
JULIEN 1989"; :TAGOFF:PEN 1:FOR A=1 
4 TO 20:LOCATE 9,A:PRINT CHR$(207): 
NEXT:FOR A=14 TO 20:LOCATE 30,A:PRI 
NT CHR$(207) :NEXT 
2102 PEN 2:FOR a=2 T0 39 STEP 2:LOC >BW 
ATE À,25:PRINT CHR$(213):NEXT:PEN 1 
:FOR A=3 TO 39 STEP 2:LOCATE A,25:P 
RINT CHR$(212) :NEXT 
2110 PEN 2:LOCATE 1,10:PRINT STRING >DQ 
$(40,176):PEN 1:LOCATE 14,9:PRINT C 
HR$(168)+CHR$(169)+CHR$(170)+CHRS (1 
71)+CHR$(172)+CHR#(173) :LOCATE 19,8 
:PRINT CHR#(174)+CHR8(175) : INK 1,6: 
INK 2,2: INK 3,26 
2123 IF INKEYS="1" THEN FOR T=1 TO )FP 
18:CALL &7049:FOR B=1 TO 10:NEXT:NE 
IT:FOR T=1 TO 25:CALL &7051:FOR B=1 
TO 10:NEXT:NEXT:RUN 10 
2124 IF INKEY(14)=0 THEN FOR T=1 TO DLF 
18:CALL &7049:FOR B=1 TO 10:NEXT:N 
EXT:FOR T=1 TO 25:CALL &7051:FOR B= 
1 TO 10:NEXT:NEXT: INK 1,26: INK 2,2: 
INK 3,6:RUN 3190 
2126 PEN 1:LOCATE 19,8:PRINT CHR$(1 DFN 
74)+CHR$(175)+CHR$(128) :LOCATE 19,9 
:PRINT CHR$(173):FOR T=1 TO 300:NEX 
TLOCATE 19,8:PRINT CHR$(178)+CHRS( 
179)+CHR$(180) :LOCATE 19,9:PRINT CH 
R$(177):FOR T=1 TO 300:NEXT 
2140 GOTO 2123 
(ACTE LLEEE EEE CETTE EEE EEEEEEEEEETTS 
#3 ; STAR 
2160 ‘x SERPENT MANGE se 
# ‘+ 
2170 ANANNPENNENANEENNENMNNEENEt 
LEE 


LA 


FT 


V 


GU 


YA 


)YB 


31 








2180 TAGOFF:PEN 1:CALL &7026:FOR H QT 
=1 TO 250:NEXT 

2190 TAGOFF:CALL &7000:TAG:RETURN  )CJ 
LLCCEFETES ETC EEE) € 


7 





x 


2240 MANNESNUNENNENENNEENNEENNEENNS YA 
#3 

2250 DATA 2,2,3,1,207,3,2,1,1, 224,2 DAE 
1,2,1,1,224,2,3,3,4,207,7,3,3, 4, 207 
,15,3,3, 7,207, 23,3,3,1,207,3,4,3,1, 
207,4,4,2,1,228,9,4,2,1,228,10, 4,3, 
1,207,15,4,3,2, 207, 19,4,2, 1,228, 20, 
4,1,1,224,21,4,3,1,207,23,4,3, 1, 207 
2260 DATA 3,5,3,1,207,9,5,2,1,228,1 >TG 
0,5,3,1,3,15,5,3,2, 207, 18,5, 3, 1,207 
,21,5,3,1,207,23,5,3,1,207,3,6,3,1, 
207,8,6,3,3, 207, 18,6,3,1, 207, 19,6,1 
,1,224,21,6,3,1,207,22,6,2, 1,228, 23 
,6,3,1,207,10,5,3, 1,207 

2270 DATA 3,7,3,1,207,8,7,3,3,207,1 )TG 
5,7,3,2,207,21,7,3,1,207, 23,7, 3, 1, 2 
07,3,8,3,1,207,8,8,3, 3,207,15,8,3,4 
,207,20,8,3,2,207,23,8,3,1,207,3,9, 
3,1,20/,4,9,2, 1,228, 15,9, 3,4, 207, 20 
19,3, 2, 207, 23,9, 3, 1,207 

2280 DATA 3,10,3,4,207,3,12,3,4,207 DB 
,9,12,3,8,207,18, 12,3, 2, 207,3, 13,3, 
1,207,9,13,3,1,207, 16,9,3, 1,207, 20, 
13,3,1,207,3,14,3,1,207,9, 14,3,1, 20 
7,14,14,2,1,228,15, 14, 3,2, 207, 22, 14 
13,1, 207 

2290 DATA 3,15,3,1,207,9,15,3,1,207 DGA 
,14,15,3,2, 207, 22,15, 3,2, 207,2, 16, 1 
,1,224,3,16,3,1,207,9,16,3,1, 207,13 
16,3, 2, 207, 20, 16,3, 1, 207, 23, 16, 3, 2 
,207,3,17,3,1,207,6,17,3,4,207, 12, 1 
7,3,2,207,20,17,3, 1,207, 24, 17,3, 2, 2 

07 

2300 DATA 3,18,3,1,207,6, 18,3, 1,207 >PX 
,11,18,3,2,207, 15,18, 3, 4, 207, 20, 18, 
3,1,207,25,18,3,1,207,3,19,3,1,207, 
6,19,3,1,207, 10, 19,3, 2,207, 15, 19,3, 
1,207,17,19,2,1,228, 18, 19, 3,1, 207, 2 
0,19,3,1,207 

2310 DATA 3,20,3,1,207,9, 20, 3, 2, 207 PU 
,15,20,3,1,207, 18,20, 3, 1, 207, 20, 20, 
3,1,207,3,21,3,1,207,8, 21,3, 2, 207,1 
8,21,3,1,207,19,21,2, 1,228, 20, 21,3, 
1,207,3, 22, 3,6, 207, 12, 22, 3,9, 207, 20 
,23,2,1,228, -1,0,0,0,0 

PKVAIREE ETES TEE EET EEE ETES ITIIII >XK 
HHi 





2330 + 
+ 

2340 'HHAHEMMENENHENNENNNNENNEENNEE DYB 

LEE] 

2360 TAGOFF:LOCATE 34,15:PRINT"O AA 

*:GOSUB 3795 :RETURN 

2360 *HARMAMMMAMENEEERRRRENNRRNES VD 


PASSAGE D'UN TABLEAU YA 





2370 ‘4 . DYE 
ee 
2380 “a YF 


##t 

2990 PEN 1:CALL &7026:ENV 1,1,15,1, DJZ 

1,0,100,15,-1,8:ENT 1,15,-15,16,5,1 

5,5:SOUND 1,1200,-1,0,1,1:F0R T=1 T 

0 1000:NEXT 

3000 TAGOFF:PEN 3:LOCATE 34,11:PRIN DVN 

T" ":PEN 1:LOCATE 35,11:PRINT CHR$ 

(140)+CHR$(141):LOCATE 35, 12:PRINT 

CHR$(142):PEN 1:FOR T=1 TO SO0:NEXT 

:LOCATE 35,11:PRINT" ":LOCATE 35,1 

2:PRINT" *: 

3010 LOCATE 36,12:PRINT CHR$(146)#C DKJ 

HR$ (249) 

3020 IF VIE=0 THEN 990 ELSE FOR 1=1 DFA 

TO 100:SOUND 1,1,1,9:NEXT I 

3030 TAGOFF:PEN 3:LOCATE 36,12:PRIN DUD 

T® ":PEN 1:LOCATE 35,11:PRINT CHR$ 

(140)+CHR$(141):LOCATE 35, 12:PRINT 

CHR$(142):PEN 1:FOR T=1 TO S00:NEXT 

:LOCATE 35,11:PRINT" ":LOCATE 35,1 

2:PRINT" ":CALL 47000 

3040 GOTO 255 >FE 
sax Maux )YA 





3080 DATA 3,3,3,9,207,17,3,3,3,207, >BG 
3,4,3,1,207,14,4,3,1,207,18,4,3,1,2 
07,24,4,3,1,207,3,5,3,1,207,14,5,3, 
1,207, 23, 5,3, 2, 207, 3,6, 3, 1,207, 14,6 
,3,1,207,22,6,3,3, 207 

3090 DATA 3,7,3,4,207,8,7,3,7,207,2 >XZ 
1,7,3,4,207, 3,8, 3,3, 207,8, 8, 3, 1,207 
,20,8,3,2, 207, 24,8,3, 1, 207,3,9,3,2, 
207,7,9,3,2,207,10,9, 3,6, 207, 19,9, 3 

,3, 207, 24,9, 3, 1, 207 

3100 DATA 3,10,3,1,207,6, 10,3, 3,207 >QK 
,10,10,3,1,207,10,11,3,1, 207,3, 12,3 

,8, 207,20, 14,3,1,207,3,15,3,6, 207, 1 
0,15,3,7,207,19,15,3,2, 207, 22, 15,3, 
2,207 





3110 DATA 22,14,3,1,207,3,16,3,1,20 DEU 
7,13,16,3,1,207,3,17,3,1,207,13,17, 
3,1,207,17,17,3,2,207,24,17,3,1,207 

3, 18,3,1,207,6,18,3,1,207,13, 18,3, 
1,207,18,18,3,2,207,24,18,3,1,207 

3120 DATA 3,19,3,4,207,13,19,3,1,20 >HH 
7,19,19,3,2,207,24,19,3,1,207,3,20, 
3,1,207,6,3,3,1,207,13,20,3,1,207,1 
7,20,3,1,207,20,20,3,2,207,24,20,3, 
1,207,3,21,3,1,207,13,21,3,1,207,17 
»21,3,1,207,21,21,3,2,207,24,21,3,1 
,207 

3130 DATA 3,22,3,1,207,10,22,3,1,20 >RD 
7,13,22,3,1,207,17,22,3,1,207,22,22 
»3,1,207,24,22,3,1,207,2,23,3,3,207 
,10,23,3,4,207,17,23,3, 1,207 

3140 DATA 13,4,2,1,228,4,6,2,1,228, DDK 
7,8,2,1,228,15,8,2,1,228,5,11,2,1,2 
28,4,18,2,1,228,5,18,2,1,228,2,22,2 
1,228, 18,23, 2,1,228,24,23,2,1,228 

3150 DATA 7,5,1,1,224,9,8,1,1,224,2 DET 
1,15,1,1,224,9,19,1,1,224,16,11,1,1 
,224,23,20,1,1,224,-1,0,0,0,0 

3160 'htettmesmmemmmwenmmmmmmmemuns VC 
a À 

3170 


+ 






= INSTRUCTION >YD 
3180 ‘# PTTIILIIITI III LI IT 
IT 

3190 CLS:PEN 1:FOR a=2 TO 39 STEP 2 DTW 
:LOCATE A,1:PRINT CHR$(214) :NEXT:PE 

N 2:FOR A=3 TO 39 STEP 2:LOCATE A,1 
:PRINT CHR$(215):NEXT:PEN 1:FO0R a=2 

TO 39 STEP 2:LOCATE À,24:PRINT CHR 
$(213) :NEXT:PEN 2:FO0R A=3 TO 39 STE 

P 2:LOCATE A,24:PRINT CHR$(212) :NEX 
T 

3200 PEN 1:FO0R A=2 TO 23 STEP 2:LO0C )EB 
ATE {,A:PRINT CHR#(214) :NEXT:PEN 2: 


| FOR A=3 TO 24 STEP 2:LOCATE {,A:PRI 


NT CHR$(213):NEXT:PEN 1:FOR A=2 TO 

23 STEP 2:LOCATE 40,A:PRINT CHR$(21 
S):NEXT:PEN 2:FOR A=3 TO 24 STEP 2: 
LOCATE 40,A:PRINT CHR$(212) :NEXT 

3210 LOCATE 14,2:PEN 1:PRINT CHR$(1 UF 
11)+CHR$(121)+CHR$(113)+CHR$(97)+CH 
R$(119)+CHR$(107)+CHR$(117)+CHR$ (97 
)+CHR$(111)+CHR$(115)+CHR$ (121) +CHR 
$(113) :SYMBOL 39, 24, 24, 48 

3220 LOCATE 14,3:PEN 3:PRINT CHR$({ DBZ 
12)+CHR$(122)+CHR$ (114) +CHR$ (98)+CH 
R$(120)+CHR$(108)+CHR$ (118) +CHR$ (98 
)+CHR$(112)+CHR$(116)+CHR$ (122) +CHR 
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#(114) 

3230 PEN 1:LOCATE 29,2:PRINT CHR$(1 >LJ 
23)+CHR$ (124) +CHR$ (125) +CHR$(126)+C 
HR$(127):LOCATE 29,3:PEN 3:PRINT CH 
R$(255)+CHR$(129) +CHR$ (130) +CHR$ (13 
1)+CHR$(132)+CHR$ (133) 

3240 PEN 1:LOCATE 3,2:PRINT CHR$#(12 DGD 
3)+CHR$(124)+CHR$ (125) +CHR$ (126) +CH 
R$(127) :LOCATE 3,3:PEN 3:PRINT CHR$ 
(255) +CHR$ (129) +CHR$ (130) +CHR$ (131) 
+CHR$ (132) +CHR$ (133) 

3250 PEN 2:LOCATE 3,5:PRINT"VOUS ET >HL 
E UN SIMPLE PETIT SERPENT" :PEN 3:L0 
CATE 3,6:PRINT"EGARE DANS DES TABLE 

AUX POUR VOUS" :PEN 1:LOCATE 3,7:PRI 
NTEN SORTIR QU'UNE CHOSE À FAIRE" 

3260 PEN 2:LOCATE 3,8:PRINT"RECUPER )QH 
ER TOUS LES COEURS TOUT EN":PEN 3:L 
OCATE 3,9:PRINT"FAISANT ATENTION AU 
HONSTRE ET":PEN {:LOCATE 3,10:PRIN 

T'A NE PAS VOUS HANGEZ LA QUEUE SOU 

s® 

3270 PEN 2:LOCATE 3,11:PRINT"PEINE AB 
DE PERDRE UNE VIE":PEN 3:LOCATE 3,1 
2:PRINT"CE JEU SE JOUE UNIQUEMENT À 
L'AIDE":PEN 1:LOCATE 3,13:PRINT"DU 
JOYSTICK FIRE=SUSIDE" 

3280 PEN 3:LOCATE 3,14:PRINT"CE JEU >JN 
CONTIENT 5 TABLEAUX":PEN 2:LOCATE 

3,15:PRINT"ET VOUS DISPOSEZ DE 4 VI 
ES":PEN 1:LOCATE 5,17:PRINT*J'AI PL 

US RIEN A VOUS DIRE A PAR" 

3290 PEN 3:LOCATE 15,19:PRINT"BONNE DGA 
CHANCE !":PEN 2:LOCATE 9,21:PRINT" 

APPUYER SUR (ESPACE). " 

3300 IF INKEY(47)=0 THEN RUN NV 

3310 GOTO 3300 >HA 

ES PIRE EEE EE EEE EEPEEETEEEEPETCEPPEANEE 








3350 DATA 3,3,3,6,207, 10,3,3,1,207, DUC 
13,3,3,4,207, 18,3,3,7, 207,3, 4, 3,1, 2 
07,10,4,3,1,207,13,4,3,1,207, 16, 4,3 
,1207,24,4,3,1,207,3,5,3,1,207,5,5 
,3,1,207,8,5,3,1, 207, 10,5, 3,1, 207, 1 
3,5,3,1,207,16,5,3,1,207,18,5,3,5, 2 
07,24,5,3,1, 207 

3360 DATA 3,6,3,1,207,5,6,3,1, 207,8 DTT 
,6,3,1,207,10,6,3,1,207,13,6,3, 1, 20 
7,16,6,3,1,207,22,6,3,1,207,24,6,3, 
1,207,3,7,3,1,207,5,7,3,1, 207,8, 7,3 


,1,207,10,7,3,1,207,13,7,3,1,207, 16 
,7,3,1,207,22,17,3,1,207 
3370 DATA 3,8,3,1,207,5,8,3, 1, 207,8 
,8,3,1,207,10,8,3,1,207,13,8,3,1, 20 
7,16,8,3,1,207,18,8,3,5,207,3,9,3,1 
,207,5,9,3,1,207,8,9,3,1,207,10,9,3 
,1,207,13,9,3,1,207,16,9,3, 1, 207, 24 
,9,3, 2, 207 
3380 DATA 10,10,3,1,207,13,10,3,1,2 
07,16, 10,3, 1,207, 16,10,3,1,207,18,1 
0,3,5,207,3,11,3,8,207, 12,13,3,1,20 
7,14,13,3,6,207,11,14,3,2, 207,14, 14 
,3,2,207,19,14,3,1,207 
3390 DATA 10,15,3,3,207, 14, 15,3, 2,2 
07,6,16,3,7,207,15,16,3,4,207, 10, 17 
,3,3,207, 18, 17,3,2,207,3, 18,3, 1, 207 
,11,18,3,2,20/,14,18,3,2,207,18,18, 
3,2,207,21,18,3,4,207,3,19,3,2,207, 
12,19,3,1,207,15,19,3,4,207, 21, 19,3 
,1,207 
3400 DATA 4, 20,3, 2,207, 21, 20,3, 1,20 
7,5,21,3,2,207,21,21,3, 1, 207, 2, 22,3 
,20, 207, 2,2, 2,1,228,14,4,2,1,228,6, 
5,2,1,228,15,6,2,1,228,21,6,2,1,228 
,7,8,2,1,228, 14,9,2,1,228, 20,9,2, 1, 
228, 13, 14,2, 1,228, 16,15,2,1,228,13, 
18,2, 1,228, 13,23, 2, 1, 228 
3410 DATA 6,4,1,1,224,11,5,1,1,224, 
24,7,1,1,224,2,11,1,1,224,4,13,1,1, 
224,25,21,1,1,224,-1,0,0,0,0 
3420 'HAMAAMMANNNNENNNEENNENNNREUNE 
Hit 
3430 ‘3 
* 
3440 ANNE 
EL E 
3450 DATA 5,3,3,4,20/, 13, 3,3,2, 207, 
17,3,3, 2, 207, 20, 3,3,5,207, 4,4, 3, 2, 2 
07,8,4,3, 2,207, 13,4, 3,2,207,17,4,3, 
2,207,20,4,3,1,207,8,5, 3, 2,207, 20,5 
,3,1,207,22,5,3,3, 207 
3460 DATA 7,6,3,2,207,13,6,3,2, 207, 
17,6,3,2, 207, 20,6,3,1, 207, 22,6,3,1, 
207,24,6,3,1,207,6,7,3,2,207,13,7,3 
,2,207,17,7,3,2, 207,20, 7,3, 1,207, 24 
,7,31,207,16,8, 3, 2,207, 20,8, 3,5, 20 
7 
3470 DATA 6,9, 3,2, 207,6, 10, 3,2, 207, 
12,10,3,2,207,17,10,3,8,207,9,11,3, 
4,207,18,11,3,3, 207, 23,11, 3,2, 207,3 
,12,3,3,207,7,12,3,8, 207, 19, 12,3,2, 
207, 23, 12,3, 2, 207 
3480 DATA 9,13,3,4,207,20, 13,3, 1, 20 
7,23,13,3,1,207,3,14,3,3, 207,8, 14,3 


TABLEAU No 6 


V 


LB 


>RX 








2,207,12,14,3,2,207,5,17,3,1,207,1 
7,7,3,4,207,12,17,3,4,207,17,17,3,4 
,207,23,17,3,1,207,7,17,3,4,207 
3490 DATA 5,18,3,1,207,7,18,3,1,207 DZT 
,10,18,3,1,207,12,18,3,1,207,15,18, 
3,1,207,17,18,3,1,207,20,18,3,1,207 
23,18,3,1,207,19,7,3,1,128,5,19,3, 
1,207,7,19,3,4,207,12,19,3,4,207,17 
,19,3,4,207,23,19,3,1,207 
3500 DATA 5,20,3,1,207,10,20,3,1,20 DPY 
7,12,20,3,4,207,20,20, 3, 1,207, 23,20 
13,1,207,5,21,3,1,207,10,21,3,1,207 
,12,21,3,1,207,15,21,3,1,207,20,21, 
3,1,207,5,22,3,1,207,7,22,3,4,207,1 
2,22,3,4,207,17,22,3,4,207, 23, 22,3, 
1,207 
3510 DATA 13,2,2,1,228,21,2,2,1,228 DBY 
»64,2,1,228,23,4,2,1,228,17,5,2,1, 
228,23,6,2,1,228, 16, 7,2,1, 228, 10, 10 
,2,1,228,11,10,2,1,228, 10, 14,2, 1,22 
8,11,14,2,1,228,7,20,2,1,228,17,20, 
2,1,228 à 
3520 DATA 6,6,1,1,224,11,5,1,1,224, 
20,9,1,1,224,3,19,1,1,224,16,15,1,1 
,224,23,15,1,1,224,13,23,1,1,224,-1 
,0,0,0,0 
3530 'ARHEAANEENNNENNNENNNEENNUNNNE 
CEE 
3540 x 
# 
3550 'HHHEHNNMENNENNNNEÉNNENNNENNNTE 
HH 
3560 MODE 1:RESTORE 3580 
3570 READ A,0,PN,L,C:1F A=-1 THEN 3 WT 
630 ELSE LOCATE A,0:PEN PN:PRINT ST 
RING$(L,C):G0T0 3570 
3580 DATA 1,2,1,4,143,6,2,1,4,143,1 
1,2,1,4,143,16,2,1,1,143,19,2,1,1,1 
43,21,2,1,4,143 
3590 DATA 2,3,1,1,143,4,3,1,1,143,6 DVY 
131,1,143,9,3,1,1,143,11,3,1,1,143 
,14,3,1,1,143,16,3,1,1,143,19,3,1,1 
,143,21,3,1,1,143,24,3,1,1,143 
3600 DATA 2,4,2,3,143,6,4,2,4,143,1 
1,4,2,4,143,16,4,2,1,143,19,4,2,1,1 
43,21,4,2,1,143,24,4,2,1,143 
3610 DATA 2,5,2,1,143,4,5,2,1,143,6 DVT 
19:2,1,143,8,5,2,1,143,11,5,2,1,143 
,14,5,2,1,143,16,5,2,4,143,21,5,2,1 
,143,24,5,2,1,143 
3620 DATA 1,6,3,4,143,6,6,3,1,143,8 >CG 
»6,3,1,143,11,6,3,1,143,14,6,3,1,14 
3,17,6,3,2,143,21,6,3,4,143 


>D4 


GAGNE 
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3630 DATA 26,5, 1, 12,176, 28,4,3,1,16 DEK 
8,29,4,3,1,169,30,4,3,1,170,31,4,3, 
1,171,32,4,3,1,172,33,4,3,1,173,33, 
3,3,1,174,34,3,3,1,175 
3640 DATA 22,10,1,4,143,27,10,1,4,1 
43,32, 10, 1,3, 143 
3650 DATA 22,11,1,1,143,27,11,1,1,1 
43,30,11,1,1,143,32,11,1,1,143,34,1 
1,1,2,143 
3660 DATA 22, 12,2,3,143,27,12,2,1,1 
43,30,12,2,1,143,32,12,2,1,143,35,1 
2,2,1,143 
3670 DATA 22,13,2,1,143,27,13,2,1,1 DAK 
43,30,13,2,1,143,32,13,2,1,143,34, 1 
3,2,2,143 
3680 DATA 22,14,3,4,143,27,14,3,1,1 
43,30,14,3,1, 143,32, 14,3,3, 143 
3690 DATA 6,11,1,1,34,7,11,1,1,35,6 >QQ 
,12,1,1,36,7,12,1,1,37,31,7,1,1,34, 
32,7,1,1,35,31,8,1,1,36,32,8,1,1,37 
3700 DATA 13,13,1,1,34,14,13,1,1,35 
,13,14,1,1,36,14,14,1,1,37,35,3,2,1 
,47,33, 2,2, 1,38, 34,2, 2,1, 39,35, 2,2, 
1,40,36,2,2,1,41,37,2,2,1,42, -1,0,0 
,0,0 
3710 F#=" . . PRESSEZ CESPACE> POUR DUH 
REJOUER . . " 
3720 LO=1:PEN 1 
3730 LOCATE 1,25:PRINT LEFT$(F$,60) 
3740 F$=RIGHTS(FS, LEN(F#)-1)4LEFTS( 
F$,1) 
3750 IF INKEY$=" " THEN RUN 
3760 GOTO 3720 
3770 HAREMOEEREEEURER 
FLE] 
3780 '# 
* 
3790 DÉNNEENNENENNENNNEENNENNNENNNE 
LEEE: 
3795 RESTORE 3820 
3800 READ a,b:1F a=99 THEN RETURN 
3810 ENV 1,100,-1,9:SOUND 1,a,ba7,1 
5,1:G070 3800 
3820 DATA 95,8,63,4,47,2,53,4,56,2, 
53,2,56, 2,71, 2,84, 2,71,2,63,2,84,4, 
71,2,53, 2,56, 2,71,2,63,4,84,2, 84,2, 
95, 2,95, 2, 71,2,53,2,56, 2,63, 2, 71,2, 
56,4,95, 2,80, 2,63, 2, 71,2, 80, 2, 71,2 
3830 DATA 80,4,84,4,71,2,63,2,53,2, 
56, 2,84, 2,47, 2,84, 2,53, 2,56, 2,95,2, 
53, 2,47, 2,53, 2,56, 2 
3840 DATA 63, 2,71, 2,80, 2, 71,2, 80,2, 
84,2,80,2,71,2,63, 2,53, 2,56,8,0,8,9 
9,99 
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CATALOGUE SORACQM 


EDUCATIFS : 
2 NOUVEAUTES 
INDISPENSABLES ! 


ee RU PEN TA 


L'homme - Niveau primaire 


Complète avec les mots ci-dessous, 
nine five seven 


| two four ten 
| one tuelve. six 





VALIDATION SOORRECTION 


be have got two hands 
Each hand has got TRE T TI: 
The car has got four wheels 


* 
The alphabet has got six vouwels 
here are ten numbers to unt 
be have got one mouth 

L 4 


here are dass 
are CTLRA IE 
sentences here 





ANGLAIS -— PRIMAIRE 





{LA DIGESTION À Ex | 


Nom de l’organ | 
correspondant HAd> il 








— Les sens 

- Les os 

- Les muscles 

- La digestion 
- Les dents 

- La respiration 
— La circulation 
Consultation et interrogation avec schémas et graphiques. 


Réf. : MC 98 CPC 


__ 200F 


HAMSTERS | 


Niveau primaire et débutant 


Ce logiciel est destiné aux élèves des classes primaires 
et début sixième et devrait leur permettre d'apprendre 
les premiers mots de vocabulaire et les premières notions 
de conjugaison anglaise. 
— DICTIONNAIRE {6 thèmes] 
Couleurs, nombres, animaux, vêtements, corps, divers. 
— PHRASES à compléter (6 thèmes]. 
- TEXTES 

+ Histoires à ranger dans l'ordre chronologique. 

e Possibilité d'en créer. 
— CONJUGAISON 
Au présent simple de 7 verbes courants. 
Options Consultation et Interrogation. 
Nombreux dessins et graphiques. 


Réf. : MC 99 CPC 200 F 





A PARTIR DE 10 ANS : 
Hamsters en Folie est une simulation économique et 
humoristique qui vous entraîne dans les mystères de la 
gestion d'un élevage de hamsters. 

‘À vous d'accoupler vos animaux, de vendre des 
hamsters, d'acheter de la nourriture, des cages, des 
magasins, de payer vos loyers et de faire face à toutes 
les dépenses. 
Deux niveaux de difficulté. “ 
Sauvegarde possible du jeu en cours. 


Disponible sur disquette 3" pour CPC 464, 664 et 
6128 au prix de : 225 F. 
Réf. : G5 007 CPC 












0 AP on 1 AU. CREER Mr CPR 
L 4 cu 00 
fe ch: + 


POUR FAIRE RIMER 


NORTON ONE 


MULTICOURS UN CHOIX DE 3 EDUCATIFS + 1 JEU 








MULTICOURS &à 
Français : amélioration de la vitesse de lecture et de la compréhension du 
texte autour d'exercices variés et amusants. 
Sciences naturelles : une initiation à la démarche scientifique et aux lois 
biologiques du monde vivant abordée avec des mots simples. 
Géographie : découverte de la variété des milieux naturels et initiation à 
l'interprétation de cartes, graphiques et autres données climatiques. 


Jeu : un jeu divertissant à découvrir. 


Réf. : GU 557064 





MULTICOURS 3% 


Français : test de performance de 
lecture suivie, qualité de compréhen- 
sion, appréciation du sens et du style 
grâce à une pédagogie active. 

Sciences naturelles : uneinitiation 





à la biologie humaine apprenant à 
observer et à interpréter les compor- 
tements de notre corps. 
Géographie : analyse de cartes et interprétation de diverses données statis- 
tiques pour une étude de la France de 1989 : régions, villes, institutions, vie 
économique industrielle. 

Jeu : 1 jeu divertissant à découvrir. 


Réf. : GU 557124 
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PAGE 38 


RAAPRAAANY 





Français : maîtrise de la lecture avec 

le support d'un texte riche et une va- 

riété d'exercices de compréhension 

d'analyse et de logique. 

Sciences naturelles : découverte 

de la Terre et de son histoire à tra- 

vers les grands phénomènes géolo- 

giques abordés grâce à des textes de connaissance, des animations. 
Géographie : tout sur l'Europe, ses états, ses institutions, ses réussites, ses 


alliances : le mode d'emploi pour 1992. 
Ré. :GU557104 EXO 


Jeu : 1 jeu divertissant à découvrir. 





Antares odmona ir 
Français : perfectionnement de la 
lecture regroupant lecture et recher- 


che, anticipation mais aussi interpré- 
tation. 


Sciences naturelles : initiation à la 
biologie animale et végétale à travers 
l'alimentation, le système de respira- 
tion, le mode de reproduction ou de locomotion. 
Géographie : Voyage sur 2 continents proposant une découverte du quoti- 
dien, des forces et faiblesses de l'Amérique latine et de l'Afrique, 


Jeu : 1 jeu divertissant à découvrir. Réf. : GU 557084 EU 





COMPILATIONS CPC 


Vous recherchez les anciens numéros de CPC 2 

Vous souhaitez connaître le mode d'emploi de cer- 
tains logiciels du téléchargement ? 

Alors voici les compilations des numéros 1 à 4 et 


5 à 8 de CPC. 
COMPIL 


COMPIL 
5à8 








De /\ere]}; 


pour trouver tout seul 


Deere]; 


5+ essai page | 


Complète par ce ou se 


ce chat 
ce vent 


marchand 
rendre 
reposer 
repos 
presser 
nourrir 
faufiler 


Le mb cùé auf mnt Sun vote ? 
‘ed mon. Be a 





ORTHOGRAPHE CE 


-VouF 

— OU, OU, US, out 
— BUX, EU, a, eau 
-h,ain,m 
—i,is, y, ile, à 


— OÙ, OÙ -cç 

— pluriel noms — accord des adjectifs 
— accord du verbe  — féminin en e 

— lits, elles — féminin des noms 

— présent — noms en ie, erle 

— an, en, ant, am — présent avoir, bte — pluriel des noms en al 
— 6, 6, à, ei — pres, faire, voir — pluriel des noms en ou 
—c, que, ck,S,SS,C -passé composé  — tout, ous, toute 
-mn -æ,rna;o,r0 —leur, leurs 

—S,SS — QU, eUX, eut, eue  —impératif 

-a,à — on, om, ont, ond  — impératif avoir, être 
— on, ont — imparfait 

— Lur être, avoir 


ORTHOGRAPHE CM 


—Souss 

— OU - où 

— ÿ ou qu - cou qu 
— avoir au présent 
— à Ou à 

— on ou ont 

— son ou sont 

— Ôtre au présent 
— Rminin des noms 
— 086 OU 886 

— présent de l'indic. 
— C6 ou 58 — quel, qu'elle 

— la, là, l'a l'as — impératif présent 

— imparfait de l'indic. — part. passé ôtre-avoir 
— quand ou qu'en 

— tant, l'en, temps 


— Ce, cel, celte, ces 
— 6 ou er 

— leur ou leurs 

— sait, sais, c'est 

— Peu, peux, peut 

— près, prêt, pré 

— accord du verbe 

— sans, s'en, sons 

— mais, mes, met 

— participe passé en i 
— partic. passé adjectif 


— parc. passé avec 
bte 

— partic. passé avec 
avoir 

- si, à, sy 


ORTHOGRAPHE 6°-5° 


—aoud:onouont 

— CS OÙ 85 

— présent de l'indicatf 

— verbes en eler ou eter 
— plunel en eaux où aux 
— Peu, peux, peut 

— imparfait de l'indicatif 
— verbes en or, ger, quer 
— son ou sont 

— près, prèt, pré 

— ©, ct, ont 

— passé composé 
—l\, la l'es, là 

— OUX ous 

— S'est c'est, sas 

— scveres 

— passé ample de l'indicatif 
— les préires 

-œ,% 


— EUX OU, eus 

— 200070 du verbe 

— Utur de l'indicatt 
— tous, tout, butes 

— format du part pes. 
— m'ama ; m'ontmon 
— condition. présent 
— même 

— Mas, mes, m'est 
— leur, leurs 

— impératf présent 
—éoœuer ;itoui 

— plutôt ou plus tôt 


—Sousy:n ou ny 
— quel ou qu'elles 
— svor etête 

— dans, d'en, dent 
— forme passe 

— sans, ren, sent 

— futur amténeur 

— nom ou verbe 

— Quand ou qu'en 
— Pertcipe passé 


- Elaborés par une équipe d'enseignants et d'informaticiens. 

- Testés dans de nombreuses écoles de Loire-Atlantique (lire CPC n° 
35 — Juin 1988). 

— L'expérience montre qu'après 15 à 30 heures de travail la plupart 
des élèves font dans leurs dictées moins de 10 % d'erreurs sur l'en- 
semble des règles de la disquette. 

1) En cas d'erreur, l'ordinateur pose des questions qui aident à trouver 
la bonne réponse. Sa méthode fait appel au raisonnement plus qu'à la 
mémoire 

2) L'ordinateur chronomètre le temps de réponse. Si ce temps est 
Supérieur au temps normal l'ordinateur l'avertit que s'il ne répond pas 
plus vite il continuera à faire des fautes dans ses dictées. 

3) Les résuhats sont enregistrés pour encourager l'élève. Il peut voir 
que plus il travaille, plus le nombre de règles acquises augmente. 


ORTHOGRAPHE 4°-3° 


— passé antérieur 
— ê/el & èet 

— impératif prés. 

— 6/elè 

— impératif prés. 

— pronoms relaits 
—…Oi" eur 6tc. 

— V. en c8r-ger 

— fomer les av. 
— P. présent/ad). v. 
— accord tout même 
— voie passive 

— queWs)/qu'elle 

— cond. présent 


— imparfait, indic. 
-on-onn 

— imparfait indic. 

— accord p. passé 
— prés. v. irréqui. 

— 866/068/C -8 e8t 
— passé simple ind. 
— ad. de couleur 

— imp. ou pass. s. 
— verbe ou p. passé 
—impart/pass. s. 

— accord nu-demi 
- Lur anbrieur 

— quelque quoique 
— passé antérieur 
— acoord p. passé 


— acoo(d p. passé 
— cond. présent 

— teminaison mots 
— cond. passé 

— pur. noms comp. 
— cond. passé 

— teminaison mots 
— verbe asseoir 

— à0001d p. passé 
— Subj. présent 

— mots en ….lé lé 
— sub}. imparfait 

— masc. ou féminin 
— v. particuliers 


8128 
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VOCABULAIRE CM 


— placer des mots 
— placer des mots 
— homonymes 
—homonymes 

— synonymes 

— contraires 

— racine des mots 


—homonymes 

— contraires 

— synonymes 

— sens prop. figuré 
— préfixes 

— suffixes 

- familles 

- suffxes 

— verbes/noms 

- adectits 

— adverbes 

— noms de métiers 
- adjecttsverbes 
— Paronymes 

— placer des mots 
— placer des mots  — 


— pendu 

— pendu 

— placer des mots 
— placer des mots 
— placer des mots 
— contraires 

— synonymes 

— contraires 

— placer des mots 
— placer des mots 
— placer des mots 
— placer des mots 
— placer des mots 
— placer des mots 


CONJUGAISON 


— mps des verbes 
— présent v. en er 
— présent v. avoir 
— présent v. être 
— rémsion présent 
— emploi ils-eles 
tuvne 

— futur v. avor 

— futur v. être 

— réveon futur 

— passé © v.en er 
— passé © v. vor 


— révision : aller, fare… 
— verbes en r 3 emps 
— voir (3 temps) 

— imparti v.en er 

— 20000 p. p. être 
—impartart v. en ir 

— impartat drers 

— impartat drers 

= émson impart 

— impérati présent 
—impératf présent 

— impératif présent 

— former pertops passé 
— ui). parouiee 

— présent ind. 

— fau ind. 


— impartait nd 

— passé ample er-r 
— passé ample 

— passé ample 

— passé composé 
— plus-que-pertat 
— impératif présent 
— smbjontc présent 
— cond. présent 

— sont présent 
— verbes en yer 1er er 
— verbes en cer ge 


? œ 
pour Réussir en français et en mathématiques 


8 disquettes bien remplies : 2000 questions — 50 exercices 


pour donner le moral 


RESULTATS ORTHOGRAPHE CM 
nombre de règles ACQUISES 


SERGE 
Pourcentage d erreurs 





Vou élève si 


temps de travail en heures 
ant tapez sur éieve precedent tapez À 
résultats par rêqle tapez sur ENTER 





LES 4 OPERATIONS 


— table d'additon de 2 

— table d'additon de 3 

— table d'additon de 4 

— table d'additon de 5 

— table d'additon de 6 

— table d'acditon de 7 

— table d'additon de 8 

— table d'aoditon de 9 

— sation CP niveau 

— sdditon CP niveau 2 

— addition CE 1 niveau 1 

— sddton CE 1 niveau 2 
— sgditon CE 2 niveau 1 

— sdoton CE 2 niveau 2 
— sdditon CM1 niveau 1 
— sdditon CM1 niveau 2 
— sddton CM2 niveau 1 
— addition CM2 niveau 2 
— mustrac. CE 1 niveau 


— mustrac. CE1 mveau 2 
— mustac CE2 veau 1 
- mustrac CE2 niveau 2 
— mustrac CM1 niveau ! 
— sustrac. CM1 nveau 2 
— sustrac. CM2 niveau 1 
— sustrac. CM2 mveau 2 
— table de mulbplic. par 2 
— table de mulbplic. par 3 
- table de muitplic. per 4 
— table de muttphic. par 5 
— table de mulbphic. par 6 
— tsbie de muibplic. par 7 
— table de muttplic. par 8 
— table de mutbplic. per 9 
- mutple. CE 1 nveau 1 


- muttplic CE niveau 2 
— muitphe CE2 niveau 1 
— muhplic. CE2 nveau 2 
— muitpie CM1 nveau ! 
— muitplic. CM1 mveau 2 
— mutple. CM2 nveau 1 
— muitpie. CM2 niveau 2 
— dvsion CE 2 niveau 1 
— dsion CM1 niveau 1 
— dvsion CM1 niveau 2 
— dusion CM1 niveau 3 
— dvision CM2 niveau 
— dvision CM2 niveau 2 
— division CM2 niveau 3 


MATHEMATIQUES CM 


— écrre un nomb. en chif. 
— nomb. préc., sauvent 

— tangement nomb. ent. 
— décomposition 

— chifre des dizaines 

— somme de 3 nombres 
— rénsion 1 

— som. de 4, 5, 6, 7 nomb 
— soustraction {propsétés) 
— Calou| mental 

— écrire grands nombres 
— révsion 2 

— mesures de longueur 

— muitple. (proprétés) 

— Calcul ments 2 

— multples et ümiseurs 

— Quotent et reste 

— mesures de masse 

— rénsion 3 


— déamaux : écr., comper. … — rangement des déci- 
— fractions maux 

— calcul ments 3 — placer un nombre 1 
— encadrement des déc. — placer un nombre 2 
— mesure 0e temps — encadr. des décmaux 
— écriiure des enters —barrer les 26r08 inut- 
— les puissances les 

— décomposition 1 — révision 2 

— décomposrtion 2 — mesures de longueur 
— rangement — mesures de masses 
— placer un nombre — mesures de capacités 
— réneon 1 — monnwe 

—tractons : équvsencs  -les ares 

— fractons et décimaux — volumes et capacités 
— mutpl. per 10, 100, 1000 durée 

— décomposition des déc. 


réf. 14400 cPe 
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464/664/6128 








DES LOGICIELS NIVEAU MATERNELLES, PRIMAIRE ET SECONDAIRE 








NIVEAU MATERNELLE 
ET PRIMAIRE 


EDUC-MATERNELLE-1. 
QUXAEELE NES 








Logiciel orienté sur la reconnaissance de la graphie des lettres et 
des nombres. 


— Apprentissage des lettres de l'alphabet avec image associée à 
chaque lettre. - Apprentissage des nombres de | à 9 


EDUC-MATERNELLE-2. NIVEAU 
MATERNELLE CP. 
MC 18.CPC disk 200 F 


- Reconstiluer des séries d'images. - Reconstiluer des 
mots. — Reconslituer des séries de nombres de | à 6 






L'enfont exerce son esprit d'analyse et découvre les règles qui 
régiront ses premiers apprentissages comme l'organisation du tra- 
voil écrit sur une page, le sens de la lecture et de l'écriture, le re- 
tour à la ligne 


MATHS-CE. NIVEAU CE1 CE2. 





Ce logiciel propose plusieurs points d'exercices de niveau cours 
élémentaire. 


— Ranger des nombres en ordre croissant et décroissant - Com 
parer des nombres [supérieur inférieur] sommes produits - Comp- 
ter pos à pas (1, 2, 5, 10, 20, 40...) - Calculs sur les opéra- 
tions élémentaires [tableau de double entrée) - Compter la mon- 
naie - Lire et aicher l'heure - Déplacer une tortue (exéculer et 
retrouver) — Syméltries axiales. 


| MATHS_CM, AUX\AIRe TE 





Ce logiciel comprend des modules sur les calculs (opérations, 
fractions] ou la géométrie (symétries sur repère othonomé avec 
possibilité de construction de figures...) - Opérations verticales 
sur des entiers (avec retenue) - addition — soustraction — multipli- 
cation - division 

— fractions simples : 

— sur des parties de rectangles, de camembens - fractions équi- 
volentes - numéraleurs d'une fraction. 

- Calculs d'oires : 

— carré - rectangle. 
reur 

— Calculs de volume 
— Symétrie (centrale et axiale] 
-— Suites proportionnelles 

-— Pourcentages 


ovec explication des formules en cas d'er- 


FRANÇAIS -SONS. NIVEAU CP CE1 CE2. 









1 - Compléter des mots avec les sons ou syllabes qui convien- 
nent avec choix enire deux sons ressemblants. 


2 - Compléter des phrases avec des mots à choisir dans des 
séries de même consonance 


3 - Sélectionner dons des phrases les mots ayant les sons indi- 
qués. 

Une série de sons avec niveau de difficulté progressif peuvent 
convenir aux élèves des classes de CP pour l'option | et aux 
élèves de CE1 CE2 pour les options 2 et 3 


ORTHO-CM RE CM1 CM2 





Ce logiciel permet d'apprendre les règles principales de l'ortho- 
. graphe en complétant des phrases [19 règles ex : à ou a, on ou 
ont.….). 


A chaque foule, une explication est donnée à l'élève sous la 
forme d'une question de remplacement qui lui permettra de com 
prendre son erreur. À lou moment, cette règle pourra être affi- 
chée pour explication. 


FRANÇAIS-CM. NIVEAU CM1 
CM2 SIXIEME. 
13 CPC disk 200 F 









— Dictée : cette option permet à un instituteur ou à un parent de 
dicter un texte à l'élève avec correction automatique après une 
ou deux fautes sur chaque lettre [au choix) et avec compiage des 
fautes 
Un fichier niveau CM] CM? de 20 dictées est fourni avec ce lo- 
giciel mois une option de créalion permet de créer des dictées 
de tout niveau. 

Une option lecture permet également de lire les textes de ce Hi- 
chier 

2 — Participes passés avec ETRE et AVOIR : Cete option permet 
d'apprendre à accorder les participes passés avec les verbes 
ETRE et/ou AVOIR avec sujet, complément d'objet direct ou indi- 
rect, masculin ou féminin, singulier ou pluriel 

A choque faute, une explication du corrigé sera visualisée. 

Un fichier de phrases est également fourni, ainsi qu'une option 
permetiant lo création de ses propres fichiers d'exercices. 


3 - Conjugaison : ce module permet à l'élève d'apprendre à 
conjuguer les verbes des 3 groupes aux temps de son choix [im 
parfait, futur antérieur, présent...) sous la forme de phrases à 
compléter. 

A choque foule, une explication sero visualisée et le comptage 
de poinis apparañra à la fin de l'exercice 


GEOGRAPHIE-PRIMAIRE. NIVEAU 
PRIMAIRE. 





Cours et exercices suivant niveau : 

Le Soleil — La Terre - Les points cardinaux - Les saisons — Le relief 
— Les cours d'eau et les mers en Fronce - Les ports en France 
- Les grandes villes - Les pays frontaliers. 


CAT EEE 





MC 20 CPC disk 200 F 


Logiciel permettant de familiariser les tous jeunes lecteurs à la re- 
constitution, la compréhension et la structure d'une phrase. 











NIVEAU 
SECONDAIRE 


GRAMMAIRE-65. NIVEAU 6EME SEME 
MC 17.CPC disk 200 F 





Ce logiciel traite des notions de fonctions et naiure des groupes 
de mois constituant la phrase (sujet, verbe, complément. 

— Apprentissage avec rappel de cours adapté à chaque situation 
— Révision générole 

Les 220 Pis contenues dans ce logiciel sont réparties en 
2 niveaux et couvrent plus de 1400 questions. Au niveau 1, l'uti- 
lisateur peut commencer en CM2. 


MATHS-6. ALGEBRE 
POUR LA CLASSE DE 6EME 








— Opérations + — X / — Fractions — Calculs d'aires - Cakuls sur 
les relatifs — Pourcentages avec graphismes — Suites proportion- 
nelles avec graphisme - Symétries othogonales 











Fractions - Nombres relatifs - Volumes - Echelles et vitesses — 
Angles - Symétres centrales 


MATHS-54. ALGEBRE 
POUR LES CLASSES DE 5EME ET 4EME. 





— Multiples et diviseurs d'un entier - Nombres premiers — Puis- 
sances d'un entier naïurel - Décomposition d'un entier naturel 
- P.G.C.D. et P.P.C.M. - Calculs algébriques 

— Rationnels {simplifications et opérations de fractions) - Equo- 
tons et inéquations dans R 


MATHS-3. ALGEBRE 
POUR LA CLASSE DE 3EME 





MC 05 CPC disk 200 F: 


— Constructions de vecteurs - Calculs sur les droites - Systèmes 
linéaires 2,2 - is a du plan - Calculs sur les racines 
carrées - Notions de trigonomélrie. 


EQUATIONS. ALGEBRE POUR LES 
CLASSES DE 3EME ET 2NDE 





MC 205 CPC K7170F 


— Equotions du second degré œvec interprétation graphique - Sys- 
tème linéaires 2.2 - Systèmes linéaires à n équations p inconnues 
{n,n<8) 


MATHS SECOND CYCLE-1. NIVEAU 
SECONDES A TERMINALES 
MC.07 CPC disk 250 F 





— Equations du second degré avec interprétation graphique - Courbe 
Y — HX) ovec choix du repère et des unités — Intégrales par la mé- 
thode des reclangles avec inlerprélation graphique et exercices 
— Suites récurrentes avec graphisme — Fonctions réciproques 


MATHS SECOND CYCLE-2. 
ALGEBRE POUR LES CLASSES DE 
SECONDES A TERMINALES. 





— Images par application affine - Courbes avec options [dont 
hordcopy} - Courbes superposées - Courbes définies par mor- 
ceoux - Familles de courbes - Courbes planes [cinématique] 
— Courbes définies par une intégrale 


GEOMETRIE PLANE. NIVEAU 4EME 
A TERMINALE 





Deux logiciels accompagnés d'explications déiaillées : 
— Un utilitaire de dessin Éd tel 2 pour tracer points, droites, 


segments el cercles, le classique «TRACER à la règle et au com 
pas» accompagné de commentaires et de tous les résullats de 
REre analytique. Une figure peut ëlre sauvegardée ou impri- 


na ‘exemples classiques de constructions géométriques accom 
pagnent cet utilitaire (bissecirices, tangenies…) 

— Une étude par le dessin des TRANSFORMATIONS GEOME- 

TRIQUES [tronslations, homothétie, rotation, symétrie axiale et cen- 

trale, similitude] sur des figures simples (carré, triangle, losange). 


ESPACES ET SOLIDES. NIVEAU PREMIERE 
ARLES 






Dessin géométrique dans l'espace : Utilitaire de dessin pour tra- 
cer points, droites, segments et plans accompagnés de commen- 
loires éventuels avec possibilité de sauvegarde et d'impression. 
lo partie importante est la perspective choisie - La perspective 
«fil de fer» qui permet de refaire le tracé sous des angles diffé- 
rents — La perspective avec les plans colorés qui donne une meilleure 
visualisation. 

Une représentation de SOLIDES dans l'espace avec : Entrée du 
solide de votre choix — Impression de fichiers de données - Choix 
des ongles de perspectives - Des exemples de solides (solides 
de PLATON, étoile de KLEPER...) 


RAEMQTENMEN 





Ce logiciel comprend une partie Questionnaire à choix multiples 
et une partie Liste de vocabulaire 

Q.CM. 

Permet de tester ses connaissances 

— 3 fichiers de culture générale 

— 1 fichier sur la Révolution française 

— 1 fichier sur la langue anglaise 

VOCALIST 

Permet de tester ses connaissances sur les langues 

— 3 fichiers ANGLAIS-FRANCAIS 

Il'est possible de créer ses hr Q.C.M. sur tous sujets ainsi 
que ses propres VOCALIST sur les langues. 


Dez/\ere]}, 


ON DE COMMANDE RCE CEE CCE 


Pour chaque article, entourez le ou les n° choisis. 

ANCIENS Nos AMSTAR & CPC 

N°26-27 -28-29-30-31 - 32-33 - 34 25 F [unité] Franco 
35-36-37 -38-39-40-41 26 F {unité} Franco 
DISQUETTES AMSTAR & CPC 


N°20-21-22-23-24-25-26-27 Abonné 110 F {unité) Franco 
{une disquette réunit 2 numéros conséculifs d'Amstar & CPC) Non abonné | 140 F {unité} Franco 


ANCIENS Nos AMSTAR 

N°5-6-8-9-10-11 15 F (unité) Franco 
12-13-14-15 18 F (unité) Franco 
16-17-18-19-20-21 20 F {unité) Franco 
22-23-24-25 22 F {unité) Franco 
DISQUETTES AMSTAR 

N° 1 (du n° 1 au 8 inclus] - N° 2 (du n° 9 au 16 indus) 110 F (unité) Franco 
N° 3 (du n° 17 au 25 inclus) 

ANCIENS Nos CPC 

N°10-11-13-16-18 - 23 - 24-25 - 26 25 F (unité) Franco 
27-28-29-30-31-32-34-36-37 

ANCIENS Nos HORS-SERIE CPC 

N°4-6-8-9-10-11-12-13-14-15-16 15 F (unité) Franco 
N°17-18-19 17 F (unité) 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17 

18 — 19 {une disquette réunit 2 numéros consécutifs de CPC] Abonné 110 F {unité) 


HS1 — HS2 - HS3 - HS4 - HSS - HS6 - HS7 - HSB - HS - HS1O - HS11 
HS12-HS13 - HS14 -HS15 - HS16-HS17 - HS18-HS19 Non abonné | 140 F {unité} 


ABONNEMENT 6 DISQUETTES (non rétroactif) 600 F Franco 


DISQUETTES ‘ARCADES”’ Téléchargement AMSTRAD CPC 60F SF 
Câble pour téléchargement 89F 5F 


LOGICIELS EDUCATIFS - LIVRES - DIVER 


RE 
a 


Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : pour DOM-TOM et étranger Q Facultatif : recommandé + 10 F par commande 
supplément forfaitaire de 10 % par article MONTANT GLOBAL 


Je joins mon règlement :  Q chèque bancaire  Q chèque postal  Q mandat 


PAYEZ PAR CARTE BANCAIRE Nom : 
Adresse : EE 
Date d'expiration | | Signature 


[inscrire les numéros de la carte, la date et signer] Code Postal : ___________ Ville: 
ECRIRE EN MAJUSCULES 


© 
e [el 
Date Signature u | Afn de fociliter le traitement des commandes, nous remercions notre aimable clien- 
T | le de ne pas agrafer les chèques, et de ne rien inscrire au dos. 








Commande : La commande doit comporter ous les renseignements demandés sur le bon de commande (désignation ou référence si celle-ci existe). Tout absence de précisions est sous la responsabilité de l'acheteur. La vente 06 
condue dès acceptafon du bon de commande par notre société, sur les artides ent. 

Les prix : Les prix indiqués sont valables du Jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le Hbelé de nos tarifs au moment de la fabrication du catalogue, et de 
variation de prix importante des fournisseurs. 

Livraison : La Imraison intervient après le règlement. Les délais de livraison étant de 10 à 15 jours environ, SORACOM ne pourra être tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Transport : La marchandise voyage aux risques et périls du destinataire. La Ivraison se faisant par cols postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
arücle pour Outre-Mer par avion et au-deseus de 5 kg nous nous régervons la possibifté d'ajuster le prix de transport enfoncton du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre aimable cientèle à opter pour 
l'envoi en recommandé. À réceplon des paquets, toute détérioration doit être signalée. 
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LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 


ET CPC HORS SERIE 





ŒECRE 


Hdi PLUS DE 80 
PROGRAMMES 
Sp qinetet nr m5 A VOTRE 
LE que nous pouvons vous DI SPOSITI lei 


Sur 36 15 Arcades, des jeux et des 
utilitaires, du son et du graphisme. 


ATTENTION : Seul le câble Arcades fonctionne avec le 
logiciel de téléchargement. 


LA COMMUNICATION 
C'EST NOTRE METIER 


Voir bon de commande page 38. 


EHETTII 


EIAETTIA 





Module serrure 


iquer la boîte) 


Plaquettes 
couleur 


(lot de 3) 


| | : . 
p.24 
CIS SSSR 


. Pc el 
er 


‘combinaison des médules 





